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FOREWORD 


The  OIL  computer  code  described  herein  is  as  it  existed  on 
October  26,  1 $6k.  The  code  has  been  in  continuous  development 
for  three  years  and  in  its  presented  form  has  been  applied 
successfully  by  General  Atomic  to  the  kind  of  problems  discussed 
in  this  report.  However,  the  development  and  improvement  in 
both  the  physics  and  mathematics  of  the  code  are  being  continued, 
so  that  duplication  of  results  (or  even  close  agreement)  between 
problems  run  with  the  code  as  published  and  the  code  as  it 
existed  either  before  or  after  this  time  is  not  necessarily  to 
be  expected. 

General  Atomic  has  exercised  due  care  in  preparation,  but 
does  not  warrant  the  merchantability,  accuracy,  and  completeness 
of  the  code  or  of  its  description  contained  herein.  The  complexity 
of  this  kind  of  program  precludes  any  guarantee  to  that  effect. 
Therefore,  any  user  must  make  his  own  determination  of  the  suita¬ 
bility  of  the  code  for  any  specific  use  and  of  the  validity  of  the 
information  produced  by  use  of  the  code. 
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i.  grroopucnog  ahd  AepowzDGEtggrs 

The  OIL  code  is  very  closely  related  to  familiar  particle-in-cell 
codes (^,3)  been  developed  by  modification  of  the  General  Atomic 

particle-in-cell  code  named  SHELL.  The  basic  difference  lies  in  the  method 
of  the  mass  transport,  the  OIL  scheme  being  a  continuous  mass  transport, 
while  the  SHELL  scheme  is  discrete.  The  Initial  work  on  a  continuous  version 
of  SHELL  was  undertaken  several  years  ago  by  B.  E.  Freeman  and  the  author. 
Since  early  1963  the  development  of  the  continuous  Euler ian  has  been  continued 
by  J.  M.  Walsh  and  the  author. 

The  author  is  deeply  appreciative  of  the  work  and  consultation  given 
by  B.  E.  Freeman  and  J.  M.  Walsh.  The  assistance  of  D.  R.  Yates  and  R.  0. 
Fisher  in  the  automatic  plotting  routines  use£  for  the  OIL  code  is  also 
much  appreciated. 

Since  its  original  use  for  the  hypervelocity  impact  calculations^, 
the  OIL  code  has  been  successfully  adapted  to  several  other  high  energy 
fluid  dynamic  applications. 

Detailed  descriptions  of  various  problems,  especially  results  for 
hypervelocity  Impact,  are  given  in  Ref.  4. 

2.  CL m 

2.1.  General  Description 

CUM  is  the  generator  code  for  the  OIL  code,  and  is  used  to  generate 
initial  values  of  the  variables  for  each  cell  in  the  grid.  (An  exception 
arises  for  certain  simple  initial  conditions,  described  in  Section  3.2, 
where  it  is  possible  to  bypass  CUM  and  use  Instead  a  more  economical 
routine  called  SETUP.) 

The  function  of  CUM  is  illustrated  by  a  simple  example  (Fig.  1).  We 
wish  to  generate  the  following  grid:  A  right  circular  cylinder  of  density 
1.  g/cm^,  radius  24  cm,  and  height  12  cm  is  located  at  position  z  =  20  cm 
along  the  axis.  A  projectile  (right  cylinder)  of  density  1.  g/ern^,  radius 
6  cm,  and  height  12  cm,  is  located  at  positions  8-20  along  the  axis.  The 
projectile  has  an  initial  axial  velocity  of  1  x  10  cm/sec.  The  cells  are 
1  cm  on  a  side. 
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OUJi  Jal»  32. 
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The  coordinates  r>{  i )  and  y(*.)  of  each  cell  are  calculated  from  the 
BX*o  and  DY's  that  are  loaded.  In  addition,  the  area  term  (TALJ^j)  = 
are  calculated. 

Tise  next  eten  is  to  process  the  packages  ( see  Section  2.2);  there  are 
two  in  this  ezaur-le.  Package  Humber  (1)  is  the  nro.Jeetile  and  Package 
Blusher  (2)  ic  the  target . 

We  ctecify  the  coordinates  of  each  package .  In  addition,  we  specify 
the  number  of  oarticles  per  cell  in  each  package.  We  assign  a  density,  the 
two  velocity  components,  and  snecific  internal  energy  for  the  -package  in 
question.  Theca  stay  oe  constants  or  functions  of  both  z  and  r. 

After  specifying  the  coordinates  of  the  nackage,  particles  (B,  where 
yfe  may  range  from  1  to  20)  are  placed  in  each  cell.  Each  of  the  particles 
is  then  assigned  a  density,  the  two  velocity  components  and  specific 
internal  energy.  The  cell  is  divided  into  B  equal  parts,  and  the  B 
particles  placed  at  the  center  of  these  areas.  The  mass  of  each  particle 
Is  then  the  density  { prescribed  along  with  the  package  input)  times  the 
volume  of  the  small  subdivision  cell  of  the  cell  (K).  The  mass  of  cell  (K) 
then  is  the  sum  of  the  If  particle  masses,  and  both  momenta  components  are 
calculated  as  the  sum  of  the  Individual  momenta  components  of  each  particle. 
Th»  internal  energy  of  each  celi.  (K)  is  the  specific  internal  energy  Times 
the  particle  mass  summed  over  all  If  particles- 

In  the  output  routine  these  cell  quantities  are  then  converted  to  the 
two  velocity  comooner.es  and  the  specific  internal  energy. 

Particles  are  created,  whether  these  data  are  for  an  OIL  or  a  SHELL 
run,  for  the  purpose  of  describing  the  many  possible  geometries  and  possible 
energy,  velocity,  and  density  distributions.  If  this  ic  an  OIL  run,  the 
particles  are  not  written  on  a  tape  as  they  would  be  if  this  were  a  SHELL 
run.  Ore  continues  to  process  each  cell  (K)  within  the  given  package  and 
the  If  particles  in  cell  (K). 

In  this  example,  it  is  sufficient  to  specify  only  o-je  parxicle  per 
ceil,  since  the  package  boundaries  coincide  with  the  cell  boundaries  and 
the  density,  velocities,  and  internal  energy  are  constant. 
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After  -processing  all  packages,  me  then  -writes  this  information  about 
the  grid  and  the  cells  on  a  tape  that  vill  he  the  starting  conditions  for 
the  OIL  or  SHELL  cole  (see  Section  2-3-) 

The  output  from  Clift,  excluding  the  long  print,  is  shown  on  the  listings 
^  vivcs  _>  end  b. 

2-2-  Input  Description  for  CIAM 

CUM  and  OIL  are  -written  in  cylindrical  coordinates  -with  axial  symmetry 
In  the  following  discussion  and  description,  X  refers  to  the  coordinate  B 
and  X  to  the  coordinate  Z-  An  asterisk  before  the  word  signifies  that  the 
data  are  in  floating  point;  otherwise  they  are  fixed  point - 


Carfl  flo-  Column  So- 
1 

2  *  1-10 


*  11-20 

*  21-30 

*  31 -bo 

*  41-50 

*  51-60 

*  61-70 

*  71-72 
3 

1 

2 


3-4 


5-6 


Description 

Sealer  card,  any  BCD  information  in  col.  2-72. 

Contain  the  problem  number-  If  less  than  zero 
this  irill  he  a  particle  run  using  SHELL;  if 
greater  than  zero,  this  -will  he  a  continuous 
run  -using  OIL. 

BiAX,  the  number  of  cells  in  the  X-direction 
(maximum  of  50.) 

JYJJL,  the  number  of  cells  in  the  T-directl  cm 
(maximum  of  100) 

Blank 

2 

58  (not  -used  as  input  in  Clift) 

59  (not  used  in  Clift) 

H7  (H7  »  binary  tape  number) 

(2  cards  is  the  minimum) 

A(l)  Indicates  that  this  is  the  last  EX  or  DX 
card  to  he  read  in.  A(0)  indicates  that  there 
-will  he  more  DX  or  DT  data  cards. 

A(0)  indicates  that  we  are  loading  EX  data 

A(l)  Indicates  ET  data. 

Indi  cate  the  number  of  zones  that  vill  hare 
the  same  DX  or  EX  values  that  appear  in 
columns  11-20. 

Indicate  the  number  of  zones  that  vill  have 
the  sasse  DX  or  BY  values  that  appear  in 
columns  21-30- 
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Card  So. 

Colam  So. 

Jeeerlption 

3 

7-S 

Indi  cate  the  number  of  zones  that  vi.ll  have 
the  sane  M  or  ST  valgus  that  appear  in 
columns  31-40. 

9-10 

Indicate  the  number  of  zones  that  will  Lave 
the  same  HI  or  ST  values  that  appear  in 
columns  41-50. 

*  11-20 

las  value  of  Iff  or  DT 

*  21-30 

The  value  of  Iff  or  Iff  ^ 

*  31-to 

lie  -/alae  of  Iff  or  HT 

*  41-50 

The  value  of  Iff  or  BT 

4 

*  1-10 

SI  =  the  tape  rmpfoer  of  one  of  the  scratch 
tapes  to  he  used  in  CUM  and  OIL 

*  11-20 

S2  -  the  other  tape  number  for  the  scratch 
tape-  dL  requires  two  scratch  tapes  if 
using  the  particle  transport. 

*  21-30 

X4  =  ■walitiBtfi)  masher  of  particles  pins  one 
per  tape  record,  that  CUM  will  generate 
(jsaximam  value  *  130) 

*  31-40 

Switch  {not  used) 

Sov  ve  hagla  loading  the  necessary  data  to  generate  a  package-  The 

rrmrimm  number  of  packages  that  may  he  generated  3s  72 ;  to  increase  the 

magnum  requires  changing  the  dimension  statements. 

1 

1 

Load  a  1  here 

2 

A(l)  inqslies  that  x  material  vill  he  generated 
in  this  package*  A(o)  implies  that  dot 
material  vill  he  generated. 

5-7 

(1^),  the  number  of  particles  per  cell  to  he 
generated,  where  lsss  20. 

*  11-20 

TC  =  I  coordinate  for  the  origin  of  the  radius 
vector  used  in  the  density,  energy,  and 
velocity  fits. 

*  21-30 

XC  =  I  coordinate  for  the  origin  of  the  radius 
vector  used  in  the  density,  energy,  and 
velocity  fits. 

*  31-40 

29flr(3)  Is  loaded  into  S8  (S8  c certains  the 
number  (1-6)  of  the  fit  for  the  density, 
internal  energy,  and  velocity  that  vill  he 
assigned  to  each  particle  as  it  is  generated 
in  tMa  poskage. 

*  41-70 

Blank. 
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Following  the  first  card  of  each  package  are  five  other  types  of  cards 

(1)  Generate  (geometry  of  package) 

(2)  Delete  card  (if  needed))  there  may  he  more  than  one 

(3)  A  density  card  (only  one  per  package) 

(4)  An  energy  card  (only  one  per  package) 

(5)  A  velocity  card  (only  one  per  package) 

For  card  (l)  above,  CLAM  has  the  following  geometric  options  for  generating 
or  deleting: 


1.  A  rectangle  -  a  4  in  column  1 

a  (l)  in  column  7  means  generate  this  rectangle 
a  (o)  in  column  7  means  delete  this  rectangle 


*  11-20  XI  =  the  left  R  coordinate  of  the  rectangle 

*  21-30  X2  =  the  right  R  coordinate  of  the  rectangle 

*  31-40  Y1  =  the  lower  Z  coordinate  of  the  rectangle 

*  41-50  Y2  =  the  upper  Z  coordinate  of  the  rectangle 


2.  A  triangle  -  a  6  in  column  1 

a  (l)  in  column  7  means  generate  this  triangle 
a  (0)  in  column  7  means  delete  this  triangle. 

*  11-20  XI) 

*  21-30  Yl) 

*  31-40  X2)__Ko[te;  yertices  (i_3)  can  he  in  any  order 

*  41-50  Y2) 

*  51-60  X3) 

*  61-70  Y3) 


3.  An  ellipse  or  circle  -  a  4l  in  column  (1-2) 

a  (1)  in  column  7  means  generate  this 
ellipse  or  circle 

a  (0)  in  column  7  means  delete  this  ellipse 
cr  circle 
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# 

♦ 


*  11-20  The  semi-axis  in  the  X-direction  if  an  ellipse  or  ti¬ 
the  radii  if  for  a  circle 

*  21-30  The  semi-axis  in  the  Y-direction  if  an  ellipse  or 
zero  if  for  a  circle 

31-40  The  X-coordinate  of  the  center  of  ellipse  or  circle 
41-50  The  Y-coordinate  of  the  center  of  ellipse  or  circle. 

4.  A  perturbed  ellipse  -  a  6l  in  columns  (1-2) 

a  (l)  in  column  7  means  generate  this  perturbed 
ellipse . 

a  (0)  in  column  7  means  delete  this  perturbed 
ellipse . 

*  11-20  Semi-axis  in  the  X -direction 

*  21-30  Semi-axis  in  the  Y-direction 

*  31-40  0. 

*  41-50  Y-coordinate  of  center  of  perturbed  ellipse 

*  51-60  X-coordinate  of  point  of  perturbation 

*  61-70  Y-coordinate  of  point  of  perturbation. 

Following  the  geometry  cards  are  the  following: 

Density  card  -  a  51  in  columns  (1-2) 

Energy  card  -  a  52  in  columns  (1-2) 

Velocity  card  -  a  53  in  columns  (1-2) 

Note:  If  in  this  package,  the  p  or  I  or  velocity  will  remain  the 

same  as  the  previous  package,  then  a  51,  52  or  53  card  is  not  required. 

H-20) 

21-30) 

31-40) 

4 -Contains  the  values  to  be  used  in  the  analytical 
41-50)  expressions  for  the  density,  energy,  and  velocities. 

51-60) 

61-70) 


* 

# 

* 

* 

* 

* 


This  data  is  then  loaded  into  the  following  arrays : 
TABR(l-6)  for  density 
TABi(l-6)  for  internal  energy 
TAEUV(l-6)  for  velocity 


Finally,  a  2  in  column  1  signifies  the  completion  of  loading  all  input  cards 
for  the  CLAM  code. 

There  are  six  subroutines  (Fill  -  FITo)  used  for  computing  p,  I,  U,  and 
V.  The  standard  input  to  these  subroutines  is  as  follows: 

TY  =  Y  coordinate  of  particle  N 
TX  a  X  coordinate  of  particle  N 
The  modified  coordinates  TTY  and  TTX  are  computed  as  follows: 

TTY  =  Y  coordinate  =  TY  -  YC  (relative  to  YC) 

TTX  =  Y  coordinate  =  TX  -  XC  (relative  to  XC) 

The  standard  output  from  the  subroutines  is  as  follows: 

WSR  =  p  (density)  of  particle  N 
WSi  =  I  (specific  internal  energy)  cf  particle  N 
WSU  »  U  (radial  velocity  component)  of  particle  N 
WSV  =  V  (axial  velocity  component)  of  particle  K. 

Below  are  the  equations,  or  analytical  fits,  for  the  six  subroutines. 

Any  or  all  may  be  changed.  Each  equation  is  followed  by  the  FORTRAN  mnemonic. 

1.  FIT  1 

R  =  (X2  +  Y2)^ 

WS  =  (TTX2  +  TTY2)^ 
p  =  A  +  B  (Y  -  C) 

WSR  =  TABR(l)  +  TABR(2)  *  (TTY  -  TABR(3)) 

I  =  A  +  B  (Y-C) 

WSi  =  TABi(l)  +  TABi(2)  *  (TTY  -  TABi(3) ) 

U  =  0 
WSU  =  0 

V  -  A  +  S  (Y  -  C) 

WSV  *  TABUV(l)  +  TABUV(2)  *  (TTY  -  TABUV(3)) 

2.  FIT  2 

R  -  (X2  +  Y2)^ 

WS  =  (TTX2  +  TTY2)^ 
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« -  < 

I-A+BX+CJ^  +  DY  +  EX2 
WSi  -  TABi(l)  +  TABi(2)  *  TTX  +  TABi(3)  *  TTX2 
+  TABi(4)  *  TTX  +  TABi(5)  *  TTX2 

u  *  c  +  d  *  y 


WSU  =  TABUV(3)  +  TABUV(4)  *  TTX 
V  »  A  +  B  *  Y 

WSB  »  TABUV(l)  +  TABUV(2)  *  TTY 


(X2  +  X2)^ 

(TTX2  +  TTX2)^ 

A  +  BR  +  CB2 

TABR(l)  +  TABR(2)  *  WS  +  TABR(3)  *  W82 
A  +  m  +  CB2 

TABi(X)  +  TABi(2)  *  WS  +  TABi(3)  *  WS2 

X  /A  +  BR  +  CBp) 

R  D  +  ER  +  FR2 

TTX  ^TABUVd)  +  TAEUV(2)  »  WS  +  TABDV(3)  *  WSf^ 
WS  TABUV(4)  +  TAHJV{5)  *  WS  +  TABW(6)  *  WS2 
Y  /A  +  BR  +  CB?n 
R  D  +  ER  +  FR? 


WSI  * 


WSV  = 


TTY  ^TABUV(l)  +  TABUV(2)  ♦  WS  +  TAHJVuj  »  woj 
TABUV(4)  +  TABDV(  5)  *  WS  +  TABUV(6)  *  W? 


Fits  4,  5,  and  6  are  dummy  routines.  Although  particles  are  not  used  in 
the  SHELL  code  if  it  is  a  continuous  run  (problem  number  greater  than  zero), 
the  use  of  particles  in  CLAM  provides  the  method  for  assigning  mass,  energy, 
to  each  cell. 


■itaijJts&i  saasjMiSi 
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2.3.  OUTPUT  FROM  CLAM 

The  output  from  the  CLAM  code  is  the  entire  Z  block  (defined  below), 
all  the  cell  quantities  (the  two  velocity  components,  the  mass  and  internal 
energy),  and  the  cell  dimensions  and  areas.  In  the  case  where  it  is  a 
particle  run,  the  particles  (their  two  coordinates  and  mass)  and.  the  1  art & 
of  the;  cell'  who  re,  the  par",  .'^ie  ;•  .ocatci  are  alio  ■  ut  onto  the  cLr.a.y 

The  normal  system  of  units  are  the  centime  ter- gram- shake,  where  the 

units  of  energy  are  jerks/g  and  -the  pressure  in  units  of  jerks/ cm"3  (l  Jerk 

-A 

*  10xo  ergs  and  1  shake  =  10 sec). 

The  Z  block  or  array  contains  the  number  of  cells,  the  number  of  zones 
in  both  directions,  and  other  necessary  information  to  start  the  OIL  or 
SHELL  calculation.  Below  is  a  complete  list  of  generated  data  from  CLAM 
that  is  written  on  the  binary  output  tape. 


z 

Bquiv. 

Units 

Description 

1 

FROB 

•mmm 

Equals  problem  number,  input  to  CLAM 

2 

Cycle 

m*  am 

Equals  cycle  number  =  0 

3 

DT 

shake 

Set  to  0  by  CLAM 

4 

Prints 

— 

( 

5 

Print -L 

— 

1 

6 

BUMPT  7 

— 

! 

i 

7 

C  Stop 

— 

i 

8 

EDDY 

— 

Equals  n  =  3 .1415927 

9 

TMZ 

grams 

Total  mass  (x)  generated  by  CLAM 

10 

GAM 

— 

Set  to  0  by  CLAM 

11 

GAMD 

— 

Set  to  0  by  CLAM 

12 

GAMX 

— 

Set  to  0  by  CLAM 

13 

ETH 

Jerk 

Total  energy  in  system 

14 

FFA 

— 

Set  to  0  by  CLAM 

15 

FFB 

— 

Set  to  0  by  CLAM 

16 

TMBZ 

grams 

Total  mass  (•)  generated  by  CLAM;  this 
version  of  CLAM  does  not  generate  ( • ) 

17 

TMXZ 

grams 

Total  mass  (x)  generated, by  CLAM 

18 

XMAX 

cm 

*  X(iMAX) 
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z 

Equiv. 

Units 

Descriotion 

19 

'EXMAX 

cm 

-  2  XMAX 

20 

TYMAX 

cm 

-  2.  Y  MAX  (note  Y  MAX  is  not  in  Z  block) 

21 

AHEM 

grams 

«  minimum  mass/2.  of  the  dot  particles 

22 

AHXM 

grams 

-  minimum  mass/2,  of  the  X  particles 

23 

DSN 

— 

Set  to  0.  by  CLAM 

24 

hqn 

mm 

Set  to  0.  by  CLAM 

25 

PEF 

mm 

Set  to  0.  by  CLAM 

2 6 

DTNA 

Set  to  0.  by  CLAM 

27 

CVIS 

mm 

Set  to  0.  by  CLAM 

28 

NPR 

— 

Set  equal  to  6  in  CLAM 

29 

NFRi 

mm 

CLAM  sets  NPRi  a  u4  (check  definition  of 
H4(Z(54)) 

30 

HC 

m  m 

.  Fixed  value  of  cycle  number,  set  to  0. 

by  CLAM 

31 

nk: 

mm 

Used  as  indices  In  CLAM 

32 

NRC 

mm 

Used  as  indices  in  CLAM 

33 

1MAX 

mm 

Input  to  CLAM  =  maximum  number  of  zones  in 

X  direction  for  this  run 

34 

1MAX 

-- 

Equal  1MAX  +  1 

35 

JMAX 

mm 

Input  to  CLAM  =  maximum  number  of  zones  in  Y 

direction  fen:  this  run 

36 

JMAXA. 

— 

=  JMAX  +  1 

37 

KKAX 

— 

*  (1MAX)(JMAX)  +  1 

38 

KMAXA 

— 

*  KMAX  +  1 

39 

KMAX 

“*• 

*  total  number  of  particles  +  1  that  CLAM 

has  generated 

40 

HD 

=  total  number  of  dot  particles  +  1  that 

CLAM  has  generated 

4l 

KDT 

~ 

Set  to  0.  by  CLAM. 

42 

iXMAX 

— 

«  1MAXA  +  1 

43 

HOD 

— 

Used  sis  index 

44 

NOPR 

— 

Set  equal  to  H3  (Note  definition  of  H3  (Z(53)) 

45 

NiMAX 

— 

Set  to  0.  by  CLAM 

46 

NJMAX 

— 

Set  to  0.  by  CLAM 
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z 

Equlv. 

Unit3 

Description 

47 

il 

Set  to 

U.  by  CLAM 

48 

12 

Set  to 

0.  by  CLAM 

49 

13 

Set  to  ' 

0.  by  CLAM 

50 

14 

" 

Set  so 

0.  by  CLAM 

51 

HI 

— 

=  scratch  tape  number 

52 

N2 

— 

=  scratch  tape  number 

53 

H3 

~ 

=  number  of  particle  records  of  length  IT-:  - 

that  CLAM  has  generated 

54 

h4 

— 

=  numbe: 

r  of  particles  +  1  to  be  stored  on 

each  particle  tape  record 

55 

N5 

- 

Set  to  0.  by  CLAM 

56 

h6 

— 

=  number  of  particles  on  the  last  particle 

tape  record 

57 

H7 

— 

=  binary  tape  designation  number 

58 

N8 

Set  to  1 

0.  by  CLAM 

59 

N9 

60 

N10 

61 

Nil 

62 

HEM 

63 

TRAD 

64 

XNRC- 

65 

SN 

66 

DXN 

67 

RADER 

68 

RADET 

69 

RADEB 

70 

DTRAD 

71 

REZFCT 

72 

RSTOP 

1 

r 

73 

SHELL 

A  counter  that  may  be  used  to  distinguish 

between  codes 

74 

BBOUND 

Set  to  0.  by  CLAM 

75 

TOZONE 

Set  to  < 

3.  by  CLAM 

1 
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Z  Equlv.  Units  Description 

76  ECK  Set  to  0.  by  CLAM 

SBOUHD 
XI 
X2 
Y1 
Y2 

CABUf 

vise 

T 

GMAX 
WSGD 
VfSGX 
C34ADR 
GMAXR 

51 

52 

53 

54 

55 

s6 

57  | 

58  —  Used  for  storage  of  FIT  number  for  each 

package  In  CM 

59  Set  to  0.  by  CLAM 

810  Set  to  0.  by  CLAM 

Z(IOO)  through  Z(150)  is  also  set  to  0.  by  CLAM. 
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3.  OIL 

3.1*  The  Eiileri*n  equations  we  wish  to  solve  are  the  following: 

(a)  |^  +  V  *  (pu)  ■  0 
(B)  |p  +  7  *  (putt*  =  -VP 
(c)  IP  +  '  *  (pEu)  =  -7-  (Pa) 

Equation  ( A)  is  the  conservation  of  mass  equation,  (b)  is  the  conservation 
of  momentum,  and  (c)  is  the  conservation  of  energy  equation. 

The  second  terns  on  the  left  side  of  Eqs.  (b)  and  (C)  are  temporarily 
dropped.  Their  contributions  are  later  approximated  when  we  move  particles 
or  continuous  mass  across  cell  boundaries. 

Rewriting  equations  (a),  (b},  and  (C)  in  cylindrical  coordinates  with 


axis  of  syianetry 

results  in 

Eqs.  (1),  (2),  (3),  and  (k). 

& 

sc 

drpu 

_  3081 

(1) 

3t 

r3r 

32 

n 

p  3t 

as 

2P 
”  3r 

(2) 

3v 

p  at 

= 

. 

3z 

(3) 

,  3E 

_  3rPu 

.  9Pv 

W 

p  at 

r3r 

32 

p 

f(p,l) 

Equation  of  state 

(5) 

p  as  density  of  cell  (K)  in  g/cm^ 
r  «  r  coordinate  in  cm. 

2=2  coordinate  in  cm. 

u  »  radial  component  of  velocity  in  cm/shake 
v  a  axial  component  of  velocity  in  cm/tihake 
P  =  material  pressure  in  jerks/cm^ 

E  «*  total  specific  energy  in  jerks/g 
I  =  specific  internal  energy  in  jerks/g 

(l  jerk  =  10XO  ergs) 


i 

i 


L  -gSSBiWWVauju  ■"  , 
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Tbe  five  variables  listed  are  aJLl  located  at  the  center  of  the  cell 
(Fig.  2  ).  For  complete  description  of  all  quantities  used,  see  Section  3.4 
on  List  of  Coonon  for  OIL." 

Rewriting  Eq.  (4) : 

P  k  CI  ♦  4  (U2  ♦  v2)3  .  -Jg-gE 


91  3u  3v 

pat  +  puat  +  pvat 


P  9ur  u  r9P  3P  Sv 

r  dr  rdr  az  3z 


and  p  ^  a  -  ~ 
¥  St  3z 


„  91  t,  /  9v  1  SuTv 

P  9t  “  “  P  +  v  W>  * 


Rewriting  the  momentum  equations  as 


10-  .  -2.S  and 


,10  - 

p  at 


-I 


the  radial  momentum  equation  becomes  in  difference  form 


9(u2)  .  C 

p  at  "  ri~£ 


i-3/2, 


A(r2) 


and  the  axial  momentum  equation  becomes 


at il 


'i-i.3-4 


and  the  change  in  specific  internal  energy  becomes 

pfi..p  }  Ik!/#*  I  jdL.-3/g  + 

p  at  2dz(j) 


n+i 

'  ri-3/2  Ui-3/2, 


Defining  the  velocity  on  the  right-hand  side  of  the  momentum  equations 
at  time  n+£  results  in 


1,1 


i  IS  THE  RIGHT  BOUNDARY 


THE  AREA  OF  CELL  <•,])  IN  THE  i 
DIRECTION  *  2  v  XU)  AY(ji 

THE  AREA  OF  CELL  (i,  j )  IN  THE  j 
DIRECTION  *  w  (Xjf,- 

K  IS  DEFINED  AS  <  j- 1  )  i  MAX  +1+1,  AND  IS  THE  INDEX 


FOR  CELL  QUANTITIES 


V 


r(u  ,  .  (u  ,  n  ,)21  =  2r  ,(u  ,  **■ 

At  u  i-kj-r-  1  i-ibj-r  J  i-r 


r 


A(r2) 


Kv^J-t)2  -  (^4)2]  -  <Vfc& 


tPJ-3/2,i4  "  ^t.i-P 


h-k,l-k  rj  ,  I  ,  “  i 

At  Ui4„}-£ 


=  .  p  n  rVlj>^  ~  Vi4,>3/2  +  ri-»j  vf,j-£  ~  ri-3/2  V3/2T1 
C  2AZJ  A(r2)  1 


Defining: 


m*  _  U: 

-  - 


p+1  n 

*  1  +  u.  1  . 


„  n+1  .  „  n 

V*  A  4  A  +  7.  A  * 


pa.SilS: 

i  2. 


Equation  (2) ,  the  'radial  manentum  equation,  becomes 

“w  -  >)  ■  2“  ^  -u> 


where 


r^1  .  rP 

PLn  -  (k)  (cell  to  the  left) 

2  • 


PRRn  = 


l£,_X  +  F? 


[cell  to  the  rl 

2. 


\ 
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Equation  (3),  the  axial  momentum  equation,  becomes 

(jP  -  f  ) 

n+1  n  .  ?  2  '  BIO  ABOVE' 

T(t)  -  v(k)  ■  **  ‘ri  -  ri-i)  — mm — 


where 


pn  j.  pn 

(k)  (coll  below) 


'cell  above] 


ABOVE 


The  energy  equation  (4)  becomes 

# At 


Tn+1  Tn  -  IK)  nAt  r/VBLOn  +  VBLOn+1  -  VABQVE11  -  VABOVE311*^ 

r(k)  "  *00  "  AMX^j  L<“  ~  )x 


(rJ  -  r^_1)  +  [BY( j ) ]  (UL*  +  Ul“+1  -  URRn  -  URRn+1)] 


where 


v,«  x  +  v. 


cell  below) 

2. 


V/.  x  ->  V/ 


V  ABOVE 


[cell  above] 

2. 


U/.  \RC  +  U/ 


on  the  left) 


U(k)RC  *  U(cell  to  the  ri 

2. 


vhere 


RC  = 


rd-l) 


RR  =  r 


(i+i) 


RL  =  r 


(i*3/2) 


The  above  equations  conserve  energy  exactly,  despite  finite  difference 
approximations.  However,  an  adjustment  at  transmittive  boundaries  of  the 
grid  in  necessary.  This  is  a  work  term,  which  is  also  taken  into  account 
in  ETH  (the  total  energy  of  the  system-.)  For  the  transmittive  boundaries, 
the  pressure  gradient  is  zero  and  the  velocity  at  the  boundary  interface  is 
set  equal  to  the  velocity  of  the  cell  adjacent  to  the  boundary. 

The  term  subtracted  from  ETH  for  the  boundary  at  the  right  is 

P(k)  +  P(cell  to  the  left) 

-  a: - L  "(h)  r!-i  ”“DY(J) 

and  the  top  is 

P(k),  4  Vllbelo.)  „(r2  .  r2_i)4t(.5) 

and  the  bottom,  if  transmittive,  is 


!(*)  :  Vll  V(k)  „(j?  .  rS_i)lt(.5) 

and  is  added  to  ETH.  K  (in  the  above  equations)  refers  to  the  border  cell. 

The  velocity  terms  in  the  energy  equation  for  those  cells  at  the 
transmittive  boundaries  are,  at  the  right  -  and  the  top  =  v^  • 

Rewriting  Eq.  (1),  the  mass  transport  equation  in  finite  difference 
form  results  in 


n+1  n 


u)  ~  “(*)  ,  |  rt-i  ri  pi  ui  i  pj-3-  Yi '  tiyi  ]  ,s) 

4t  1  ri-§  4ri  ri-t  4ri  4z(j)  J  ' 


where 


42(j> 


=  !qe1  „  Im 


A 


j 


>1 


where  A*  for  all  j  =  rt^r(i)  ”  r(i-l)^  * 


22 


and 


V(k)  =  volume  of  cell  k  =  2ir  Ar±  Az^ 


multiply  both  sides  of  Eq.  (7)  by  r.  results  in 


(T) 


v(k)  ri  ■  2,,ri  “)  rl-i  lri 
or 

V(k)  ri  *  <  ri-|  "i  (8) 

x* 

where  A  =  area  in  the  direction  perpendicular  to  the  Z  axis. 

And  similarly,  multiplying  Eq.  (7)  by  r^  ^  results  in 


or 


V(k)  ri-l  =  2irri-l  62  j  ri-£  tTi 


V(k)  ri-l  "  Ai-1  ri-|  Ari 


(9) 


Solving  Eqs.  (8)  and  (9)  for  r^  Ar^  and  substituting  their  values  into 
Eq.  (6)  results  in 

n+1  n  . 

p(k)  "  °(k)  1  ,  z  v.  Ar  r 

At  “  T(k)  (Vl  "j-lVl  -  Aj  pj  Vj  *  Al-1  “i-l  Vl  -  Ai  "iui> 

or  rewriting  in  terms  of  mass, 

-  MX^k)  =  AtE(Av)*  p  -  (Av)*  p  +  (Au)£  p  -  (Au)£  p] 


where  MX  =  mass  of  cell  k  in  grams  and  (Av)  =  area  times  a  velocity  (the 
velocity  is  a  function  of  the  velocity  of  the  two  cells  in  question.)  B 
refers  to  the  bottom,  T  to  the  top,  L  to  the  left,  and  R  to  the  right  of 
cell  k.  The  p  used  is  the  p  from  the  cell  from  which  the  flux  is  coming. 

Various  techniques  for  velocity  weighting  in  the  mass  flux  have  been 
tried.  Results  from  these  trials  are  presented  in  Figs.  5  and  6.  The 
scheme  presently  being  used  is  as  follows .  Take  the  r  direction  as  an 
example: 
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The  mass  to  move  across  i  is  between  i  and  ii  where  A  =  1  -  iij  thus 
A  =  uAt  where  u  is  the  weighted  velocity  at  A*  Using  the  first  two  terns  of 
the  Taylor  series  at  a  distance  of  -A  front  i,  we  expand 


Mass,  both  coup  clients  of  momentum,  and  the  energy  across  all  four 
sides  of  the  cell  are  calculated.  By  conserving  both  axial  and  radial 
momentum  and  the  total  energy,  the  new  velocities  are  calculated  and  the 
new  internal  energy  is  then  the  difference  between  the  total  and  the  kinetic. 

A  look  ahead,  two  cells  in  both  directions,  is  done  to  remove  preferen¬ 
tial  mass  transport  because  of  tbs  initial  choice  of  indexing  in  the 
r  direction  first.  Take  the  example  where  the  flux  out  of  the  top  and  right 
are  such  that  their  sum  would  remove  more  than  the  mass  in  the  cell.  The 
code  would  then  assign  new  fluxes  such  that  the  top  flux  would  be  its 
fraction  of  the  total  flux  out  times  the  mass  of  the  cell,  and  the  right 
flux  would  be  its  fraction  of  the  total  flux  out  times  the  mass  of  the  cell. 


2k 


To  treat  a  free  surface  in  the  continuous  Eulerian  scheme,  we  have 
chosen  to  use  a  density  cutoff  to  limit  the  mass  from  flowing  through  N 
zones  in  N  time  steps.  If  the  mass  flow  across  the  free  surface  results 
in  a  density  which  is  less  than  an  input  number  (~  10  J  pQ)  the  flux  is 

held  back.  To  cut  the  small  precursor  ahe;  *  of  the  shock  front,  the 

-8 

velocities  are  checked  against  10  cm/sh;  if  they  are  smaller  than  this, 
they  are  set  to  zero. 

To  ensure  that  the  bottom  cells  in  the  projectile  will  empty  as  the 
projectile  moves  up,  a  scheme  using  the  p  and  v  frcm  the  cell  above  is  used 
to  calculate  the  flux.  This  is  continued  until  the  initial  velocity  of  the 
bottom  cell  of  the  projectile  begins  to  change  because  of  the  shock.  After 
this  point  is  reached,  no  special  procedure  is  used  for  the  bottom  cells 
of  the  projectile. 

Boundary  Conditions 

These  cells  adjacent  to  the  axis  of  symnetry  (r  =  0)  have  the  following 
boundary  conditions;  the  pressure  on  the  left  side  of  the  cell  is  equal  to 
the  pressure  of  the  first  cell,  and  the  velocity  at  the  left  is  set  to  zero. 
The  pressure  at  the  right  interface  of  a  cell  whose  right  neighbor  is  void 
is  zero,  and  the  velocity  is  that  of  the  occupied  cell;  similarly  for  the 
case  of  a  void  cell  above. 

The  pressure  and  velocity  at  a  transmitt ive  boundary  are  the  following. 
The  pressure  at  the  boundary  is  set  equal  to  the  pressure  at  the  left  or 
bottom  boundary  respectively  for  a  right  and  top  transmitt  ive  boundary  (no 
acceleration  of  the  border  cells)  while  the  velocity  is  set  equal  to  the 
border  cell  velocity. 

The  top  and  right  boundary  of  the  grid  is  transmitt ive;  the  bottom 
boundary  may  be  either  transmitt  ive  or  reflective,  where  the  same  boundary 
conditions  then  will  exist  as  for  the  top  or  right  and  the  axis  of  symmetry. 

Two  passes  are  used  to  solve  the  change  in  internal  energy  due  to  the 
work  terms.  The  first  pass  through,  one  calculates  the  new  velocities  at 
time  (n+l)  and  simultaneously,  the  velocities  at  the  interfaces  at  time  (n). 
The  time  (n)  interface  velocities  are  also  used  to  evaluate  the  internal 
energy  contributions  due  to  terms  involving  these  velocities  (see  Eq.  4.) 
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In  a  second  pass  the  time  (n+l)  interface  velocities  are  calculated  «nfl  the 
associated  contributions  to  the  internal  energies  are  computed,  (a  look¬ 
ahead  feature  of  two  cells  in  both  directions  would  enable  one  to  use  only- 
one  pass.) 

An  option  exists  for  correcting  negative  internal  energies  if  they  arise 
in  phase  1.  The  cell  where  the  maximum  negative  internal  energy  occurred  is 
recorded;  assuming  the  rate  of  change  of  internal  energy  with  time  is 
essential1  constant,  we  calculate  a  smaller  time  step,  such  that  the  new 
internal  energy  will  be  positive.  We  complete  the  entire  cycle,  to  time 
(n+l),  now  set  the  time  step  negative,  integrate  backward  to  time  (n),  and 
now  forward  with  the  new  smaller  At  to  a  revised  time  (n+l) . 

Time  Control  for  Code 

The  time  control  for  the  continuous  Eulerian  is  the  same  as  for  the 
particle  in  cell  scheme,  with  the  exception  of  the  r  direction.  In  the 
z  direction: 


Then 


Amz  =  pVAAt  Assume  V  =  v(k) 

P  =  p(k) 
Amz  =  AMx(k) 


AMx 


AMc(k) 


00 


(i)  ■  r(i-l) 


3dy(j) 


*  sfjT 

or  iv(k)lAt  ^  DTCj)  such  that  the  flux  in  the  z  direction  will  not  empty 
the  cell. 

In  the  r  direction,  the  stability  is  as  follows. 

Amp  =  puAAt  Assume  ArR  =  AMx(k) 

u  =  u(k) 

P  =  p(k) 


vfV 


;  *$-.$  Jf  •;  V  «  •n  ¥  ffr-^r****** 


AMv/trN  _ 
--— \"/ 


AMx(kJ 


u(k}2flr(i)DY(j)At 


=  AMx(k)u(k)  - - vii - At 

(i-i)to(i) 


u(k)At  £ 


TAU  (i 
2*r(i) 


C  =  speed  of  sound,  defined  as  */  yp/p  for  a  polytropic  fonn  of  the  equation 

of  state  and  ( dP/dp  )^  for  a  real  equation  of  state.  Provisions  exist  for 

s 

calling  either  one. 

The  time  control  (At)  conditions  are  the  G our ant  condition  and  that 
the  maximum  [|^|  and  |^j]<  ^  . 

Three  options  for  time  control  are: 

1.  Code  will  control  the  At,  calculated  from  the  Courant  and  particle 
velocity  scheme,  but  at  a  fraction  of  stability. 

2.  The  At  loaded  at  t  =  0  will  remain  constant,  provided  option  for 
integrating  backyard  in  time  to  remove  negative  internal  energies 
from  phase  1  is  not  operating. 

3.  Code  will  control  the  At,  decreasing  At  if 


exceeds  FFA  (an  input  number),  and  increasing  At  if  it  is  less  than 
FFB  (an  input  number.) 

The  stability  check  is  emitted  for  a  cell  if  the  density  of  that  cell 
is  less  than  seme  input  number.  This  prevents  isolated  debris  of  high 
velocity  and  small  masses  from  controlling  the  the  time  step. 
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The  question  investigated  here  is  the  correctness  of  the  mass  transport 
which  is  done  neglecting  comer  coupling.  Below  is  an  example  of  the  c ca¬ 
parison  with  a  PIC-like  transport: 


Assume  u  =  v  for  all  four  cells  and 
v&t  =■ 

Where  part  teles  in  the  PIC  scheme  located 
in  the  shaded  area  will  cross  into  zone  3 
in  one  time  step,  the  OIL  code  requires 
two  time  steps  for  mass  to  move  into 
zone  3 ,  first  by  the  path  of  zone  1  to 
2  or  4,  and  finally  to  zone  3- 


In  the  case  of  very  small  time  steps,  it  is  seen  that  the  above  approxi¬ 
mation  is  unimportant.  We  have  chosen  to  run  most  of  our  problems  at  .5 
stability.  Further,  from  early  test  runs  of  an  impact  calculation,  results 
did  not  change  appreciably  as  the  factor  was  varied  from  one-fourth  to  one- 
half  to  nine-tenths  of  stability. 


The  PIC  Transport 

The  changes  required  to  change  from  a  continuous  mass  transport  to  the 
particle  transport  are: 

1.  The  problem  number  must  be  negative. 

2.  The  transport  and  rezone  subroutines  must  be  replaced  with  those 
for  PIC  transport. 

Following  is  a  brief  discussion  of  the  particle  (PIC)  transport  characterizing 
SHELL.  Two  scratch  tapes  are  required  for  the  particles .  SHELL,  reads  in 
particle  records  from  one  tape,  processes  the  particles  upd*>l.jg  the 
coordinates,  writes  them  out  on  the  other  tape,  and  interchanges  tape 
numbers . 


Five  variables  are  associated  with  each  particle;  the  mass  (AM),  the  r 
coordinate  (XL),  and  Z  coordinate  (YL),  the  i-coordinate  of  the  cell  where 
the  particle  lies  (iwl),  and  the  ^-coordinate  of  the  cell  where  the  particle 
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lies  (iw2) .  Thus,  one  computes  the  cell  number  where  the  particle  is  by 
k  “  (J-1)*1MAX  +1  +  1. 


The  particles  are  moved  with  an  area  weighted  velocity,  which  is 
basically  a  cell  placed  with  the  particle  at  the  center.  The  overlay  of 
this  cell  on  the  four  cells  in  question  times  the  velocity  of  that  cell  is 
slimmed  for  the  four  cells  and  then  the  weighted  velocity  is  calculated  by 
dividing  through  by  the  total  area. 


Example:  For  particle  H  the  u  com¬ 
ponent  of  velocity  used  to  move  the 
particle  is 


u 


i 


u 


4 

2 

i=l 


and  the  v  component  is 
4 


v  = 


2 

i=l 

TT- 

2 

i=l 


Vi 


The  particle  is  then  moved  with  the  area  weighted  velocities.  If  the 
particles  does  not  leave  the  cell  (k),  no  additional  calculations  are  needed; 
process  the  next  particle.  If  the  particle  leaves  ceil  (k),  it  carries  with 
it  a  mass,  momentum,  and  internal  energy. 

By  conserving  momentum  and  total  energy,  one  T.hen  changes  the  quantities 
in  the  new  cell.  No  changes  except  removing  the.  particle  mass  from  the  mas,' 
of  cell  (k)  are  necessary  for  updating  cell  (k). 


®  . 

(K) 

(D 

1 

2 

Example:  Particle  N  moves  from  cell  (k)  to  cell  (L).  Conserving  both 
axial  and  radial  momentum: 


<m>*s  *  V2 + “u 


2  9 


(Sy  v2  -  MgVg  +  mvu  , 


line  above  signifies  the  updated  variable.  Thus, 


Mg  \ 


V2  = 


**2 


However,  Mg  is  not  available  at  this  stage  (since  Mp  has  replaced  Mg); 
substitute  Mg  «  Mg  -  m  results  in  Ug  =  — -  (u^-  Ug)  +  Ugj  similarly  for  the  v 
component.  Note  that  u^  and  v^  are  Mg 

set  equal  to  u^  and  v^  unless 
there  has  been  an  elastic  bounce  off  a  reflective  boundary  (requiring  the 
velocities  to  change  sign  to  conserve  momentum);  then  u^  and  v^  are  set 
to  -  u1  and  -  v^ 

To  calculate  the  new  internal  energy  in  cell  (2)  requires  that  we 
conserve  total  energy  and  momentum,  resulting  in  the  expression: 


Ulh  +  H(ul  +  vl^  +  +  H(u2  +  v2>  = 


3  .  2S 


(M]_  -  m)^  +  -  m)(u^  +  v^)  +  (l^  +  m)lg  +  MM?  +  m)(u^+'^) 


-2,.2\ 


Solving  for  IgMg  = 

nlj.  +  sm(u^  +  v*)  +  Mglg  +  &g(u|  +  v\)  -  ^(u|  + 

Substituting  the  new  values  for  and  Vg  from  conserving  momentum  results 
in 

t  t  i  m  ft  t  i  r^UlL~  ^ 2  +  ^V;11"  rA  (~\  m  0 

12  d'1'12  ‘  * ](1'^ 
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Thus,  after  each  particle  is  moved,  the  two  cells  involved  are  updated. 
After  a  particle  record  has  beau  pruuetsBed,  the  particles,  with  their  new 
coordinates  and  i  and  J  value  of  the  new  cell  location,  are  then  written  on 
another  tape,  which  will  become  the  starting  conditions  for  the  next  transport 
cycle.  An  option  exists  to  call  rezone  if  particles  leave  the  top  or  the 
right  of  the  grid. 

Viscosity 

The  movement  of  mas0.  e.c-:s;;  th».  ceil  boundarieo  give  rise  to  force 
vbi ::h  in  effective  in  reducing  fluctuati cry  that  arise  from  the  differencing 
technique^**1  1'  .  This  in  ci  the-  ixix  a  :'trje"  viscosity, -!  being  propor¬ 
tions!  to  the  velocity  gr;  i ten:,.  'Tbl  viscosity  is  present  at  all  times, 
ccth  u.  compression?,  ar i  rare  J  act  ior.o.  Sc-  additional  (that  is,  a  controllable) 
artificial  visocoity  I?,  pr;  -oent  in  thi.  vgr  ion  of  oil. 
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3.2.  Special  Subroutines  , 

The  REZCNE  routine  for  the  particle  transport  is  different  frcto  that 
required  for  the  continuous  mass  transport  version.  If  material  leaves  the 
grid  out  of  the  right  or  top,  a  trigger  is  set  to  call  RE20KE. 

The  REZONE  multiplies  all  dimensions  by  two,  so  that  four  old  cells 
become  one  in  the  new  grid?'  The  total  number  of  cells  remains  the  same, 
and  the  target  is  doubled  3n  depth  and  width  by  adding  mass  at  the  sides 
and  back  surface.  This  scheme  does  conserve  total  energy,  and  by  conserving 
momentum,  also,  new  velocities  and  internal  energy  are  calculated.  This 
will  cause  the  total  internal  energy  of  the  system  to  rise  slightly. 

For  the  particle. rezone,  it  is  not  necessary  to  multiply  all  dimensions 
by  two,  but  rather  change  the  Ax's  and  Ay's  by  any  prescribed  amount.  One 
adds  new  material  with  the  same  density,  internal  energy,  and  velocity 
distributions  as  are  available  in  CLAM.  The  number  of  particles  per  cell 
to  add  is  also  an  input  number.  For  a  more  complete  description,  see 
Reference  3* 

A  subroutine  SETUP  is  available  to  generate  the  initial  grid  (bypasses 
the  generator  code  CLAM)  if  both  the  target  and  projectile  are  of  the  same 
density.  The  projectile  must  be  a  right  circular  cylinder.  This  routine 
assumes  that  all  Ax's  are  the  same  and  all  Ay's  are  the  same.  An  asterisk 
before  the  symbol  implies  it  is  floating  point. 


SYMBOL 

LOCATION 

DESCRIPTION 

*  Z(lll) 

111 

Initial  density  g/cm^ 

*  Z(112) 

112 

Initial  pellet  velocity  cm/sh. 

*  DX(1) 

7845 

Ax  \n  cm 

*  DY(1) 

7897 

Ay  in  cm 

iMAX 

33 

Maximum  number  of  zones  in  the  r 

direction 

jMAX 

35 

Maximum  number  of  zones  in  the  z 

direction 

il 

47 

me  a  .vaiufc  of  ,«ae  radius,  oi  ihe 
-pm^ti?*  ...  •  - 

12 

48 

The  j  value  of  the  top  of  projectile  +2 

*  ffiOB 

1 

Any  positive  number  for  the  problem 
*  , 

*  HC(3) 

237 

Must  be  a  positive  number 

i 
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*  fk(4) 

238 

Set  =  1 

*  PK(5) 

239 

Right  boundary  (i)  of  projectile 

*  HC (6) 

240 

Bottom  (j)+l  of  projectile 

*  FK(7) 

241 

Top  (j)  of  projectile 

*  PK(8) 

242 

Set  =  1 

*  rx(9) 

243 

Right  (i)  boundary  of  target 

*  ?K(10) 

244 

Bottom  (j)+l  of  target 

*  PK(ll) 

245 

Top  (j)  of  target 

And  the  usual  input  data  to  start  OIL  code  from  a  CLAM  tape. 


An  Example  of  Input  for  OIL  Using  the  Subroutine  SETUP. 

!OR  INPUT) 

GAS  GAMMA*  1.5  RKO  TARGET  *  RHO  PELLET  *1. 


1  23513 

41 « 

P* 

0. 

1121 

*01 

11 

1. 

Hi] 

1. 

751 

I.  -3 

1382 

111.  -2 

.5 

2381 

fii. 

6. 

9. 

20. 

i. 

24. 

2451 

.32* 

2  331 

124. 

2  351 

L32. 

7845|] 

11. 

7897] 

LI. 

772 

.1. 

273 

1-1. 

82Q 

-1. 

65p 

L-l. 

711 

LI. 

14C 

!i. 

.5 

24S 

l-l*  -5 

0. 

86* 

51.5 

1.5 

1471(20* 

25  472 

»8. 

22. 

Hi) 

Ll.  -2 

1  31 

>10. 

16. 

L6. 

1  72  >3 

til.  H 

1 

This  will  make  a  binary  tape  that  is  equivalent  to  that  made  by  the  example  in  CLAM 
(see  Section  2.1/ .  See  Section  5 >2  for  fonaat  for  CARDS  subroutine. 


i  : 


*fii<  s  K 
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3*3*  Logic  of  OIL 

•The  logic  involved  in  following  a  given  cell  (K)  from  time  t  to  t+At, 
or  fran  cycle  n  to  n+1. 

k  =  (j-l)iMAX  i  +  1 
TiU(i)  =  «(x^  -  x^_x)) 


S 

Pig.  3 

1.  GET  Routine 

Sere  one  calculates  the  pressure  (P)  for  cell  (k)  where  P(k)  = 

fCpfk),iI(k)3  where  P(k)  =  ^^ijpY(j)  '  3516  speed  of  souM  (^p/p^  or 

(9P/3p)g  is  then  calculated  and  the  Courant  condition  for  stability,  that 
<  2 Tv  " — T”  3534  tile  velocity  criteria  that  the 

1  max  [j  and  |^j  ]  <  ~  are  calculated.  Frcm 
these  stability  checks  a  new  At  is  calculated  or  At  remains  the  same  (see 
options  under  description  '■?  common  for  OIL,  symbol  CABIN.)  The  cycle 
number  and  the  time  are  now  advanced.  (A  radiation  time  step  is  also 
calculated,  although  radiation  is  not  being  used  in  this  version  of  the 
code.) 

2.  BEIT  Routine 

The  OIL  code  has  four  separate  editing-like  routines  all  included 
in  the  routine  called  EDIT.  A  section  called  short  print  displays  the  time, 
cycle  number,  the  total  internal  and  kinetic  energy  and  total  mass,  and 
various  other  integral  quantities  such  as  momenta  ,  and  mass  -_n  various 


kA 

k-1 

i 

k  A- 

_ i 

* - 

:(j) 

/ 

k+i 

kB 

3h 


angles  (see  Sect.  3-^.)  A  plot  routine  is  also  available  in  the  EDIT  routine 
which  places  an  (x)  (in  an  equal  cell  size  grid,  corresponding  to  the  actual 
grid  in  OIL)  if  there  is  any  mass  in  the  cell;  thus  it  is  a  display  of  mass 
movement  from  time  to  time.  A  long  print  routine  may  also  be  called  for 
that  edits  on  each  page  a  column  from  the  OIL  grid  which  contains  the 
coordinates  of  the  column,  and  the  cell  quantities  as  a  function  of  the 
row  coordinates  (see  column  identification  in  Sect.  5*2  FORTRAN  listing  of 
EDIT.) 

The  last  option  is  a  dump  routine  which  dumps  all  necessary  duta  for 
restarting  the  problem.  This  data  may  also  be  used  for  the  automatic  plotting 
routines . 

Various  input  numbers  (see  Sect.  3*^)  specify  the  frequency  that  these 
routines  will  be  called  for,  and  an  input  number  specifying  a  cycle  number 
to  stop. 

In  the  following  discussion,  please  refer  to  Fig.  3. 


3-  PHI  Routine 

Here  we  integrate  the  two  momentum  equations  and  the  change  in 
internal  energy  due  to  the  work  terms.  No  material  is  moved  at  this  time, 
and  the  transport  terras  are  dropped.  Using  the  new  pressures  and  the  time 
step  which  were  computed  in  CDT,  we  now  prepare  to  integrate  the  equations. 

PL(j),  the  pressure  at  interface  (i-l)  and  uL(j),  the  velocity  at 
interface  (i-l)  are  available  from  the  previous  column  sweep  on  i-l. 


PLO) 

ULQ) 


p(k)  +  p(k-l)/ 

2. 

ri-3/5  U(k-l)  *  ri-£  U(k) 

2. 


The  EBLO  term,  which  was  the  P ABOVE  for  coll  (kB)  and  VBLO,  VABOVE  for  cell 
kB,  is  also  available  for  interface  *-l. 

felo  ,  m  *  mi 
£  • 

v(k)  +  v(kB)“ 

2. 


VBLO 


1 
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uL 


U) 


uH R 


n+1  ,  n+1 

i-3/2  u(k~l)  ri4  (k) 

2. 


n+1  ,  n+1 

ri4  uQc)  ri4  u(k+i) 

2. 


VABOVE  = 


VBLO  = 


n+1  n+1 

VQO  1  V(kA) 

2. 


n+1  ,  n+1 

vw :  t(m) 

2. 


and  then  add  to  the  work  terms  due  to  velocities  at  cycle  n+1. 


*(£)  -  +  -  uBB°+1)  ”Atro(1> 
.  (VKO^^yViffloC1.)  „(r2  .  r2_i)wl 


Tlie  specific  internal  energy  is  checked  during  both  passes  for  negative 
values.  If  a  negative  value  is  found*  we  assume  dl/dt  is  constant  over  the 
time  step*  and  recompute  a  new  At  (not  placing  it  in  the  At  storage)  that 
will  prevent  I  from  going  negative.  After  the  completion  of  integrating 
all  values  to  cycle  n+1,  an  option  exists  for  removing  these  negative 
energies.  If  one  selects  the  option.  At  is  set  equal  to  -At,  the  code 
integrates  backward  two  passes  to  cycle  n,  then  replacing  At  with  the  new, 
smaller  At  and  now  forward  in  time  with  two  passes  using  the  smaller  At. 


k.  PH2  Routine 


Here  we  move  the  mass  and  approximate  the  transport 
and  energy  equations  that  ire  re  omitted  in  Phase  1. 


k. 

AJ 

A 

vIPY 

V 

_  -  . . 4 

CAMC/ ,\  , 

r 

J 

ammp 

U)  * 

k-1 

1  Tl 

“*k+i 

* 

A! 

r 

k3 

I 


terms  in  the  momentum 


Fig.  4 
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AMP  =  mas 8  flow  across  the  right  boundary 
AMUR  «=  radial  momenta  across  the  right  boundary 
AMVR  =  axial  mcmenta  across  the  right  boundary 
UEIER  --  total  specific  energy  across  the  right  boundary 

AMY  =  mass  flow  across  the  bottom  boundary 
AMMU  =  radial  momenta  across  the  bottom  boundary 
AMMV  =  axial  mcmenta  across  the  bottom  boundary 
DEIEB  •  total  specific  energy  across  the  bottom  boundary 
GAMC( j)  »  mass  flow  across  the  left  boundary 
PLEBTCj)  radial  momenta  across  the  left  boundary 
YAMC(j)^  axial  mcmenta  across  the  left  boundary 
SlGC(j)-  total  specific  energy  across  the  left  boundary 
AMPY  =  mass  flow  across  the  top  boundary 
AMOT  =  radial  mcmenta  across  the  top  boundary 
AMVT  -  axial  momenta  across  the  top  boundary 
DEIET  -  total  specific  energy  across  the  top  boundary 

Again,  following  a  typical  cell  k  (Fig.  4)  the  masses,  the  momentas, 
and  the  energies  axe  now  available  at  the  left  and  bottom  boundaries  of 
cell  (k)  from  the  previous  column  sweep  and  the  cell  below. 

Now,  begin  by  calculating  the  mass  flow  at  the  top  of  cell  (k) . 


V  = 

ABOVE  2. 


then  form 


VAB0VE 


as  the  weighted  velocity  to  use  in  the  flux  equation  and  store  it  in  V^^* 
If  it  is  positive,  use  it  is  negative,  we  use  Now 

calculate  the  mass  flow  across  the  top  as  An^  =  P(jj)^(  j)  VAt  where 

V  =  v 
v  ABOVE 

M  =  donor  cell 


*  -  -  iffr1  vW4t) 


New  we  calculate  the  mass  flow  at  the  right  boundary  of  cell  k.  uRR 
is  defined  as  UW  jj.  then  form 

C.  • 


then  form 


as  the  weighted  velocity  to  use  in  the  flux  equation  and  store  it  in  uRR. 
The  mass  flow  across  i  is  then 


where 


"”r  “  4t 


u  =  uRR 

N  =  i  value  of  donor  cell 


PIDTS 


M  =  donor  cell 

1  ■  ik 


-  *“•  ■  S(uBR> 

Now  check  to  see  if  these  masses  will  more  than  empty  the  cell,  since 
it  is  possible  that  the  left  and  bottom  flux  were  both  negative.  Search 
cells  ahead  in  both  directions  to  remove  preferential  mass  movement.  As 
an  example,  suppose  the  flux  at  the  TOP  (AMP!)  is  positive  and  the  flux  at 
the  right  is  positive,  where  their  sum  is  larger  than  the  mass  in  cell  (k); 
then  normalize  the  fluxes  the  following  way.  The  flux  out  of  the  top  i? 

FT[AMX(k)] 

p  +“f 
T  *R 

and  the  flux  out  of  the  right  is  equal  to 

FR[AMX(k)] 


where  F  is  a  symbol  for  the  mass  flux. 
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The  momenta  associated  with  these  masses  are  now  computed.  The  sign  of 
the  flux  Specifies  the  zone  where  the  mass  came  from,  thus  at  the  top;  the 
radial  component  equals  AMUT  =  AMFY(u(N))  aid  the  axial  AMVT  =  AMFY(v(N)) 
where  (N)  «  cell  number  of  the  donor  cell* 

The  momenta  for  the  right  is  AMUR  --  AMMP(u(N)).  for  the  radial  and 
AMVR  »  AMMP(v(N))  for  the  axial  component,  where  again  (N)  =  cell  number  of 
the  donor  cell. 

The  total  specific  energy  that  those  mass  fluxes  carry  is  also 
calculated  at  this  time;  for  the  top  it  is  equal  to 


DEIET 


*(.)  ♦  ^4^ 


and  for  the  right  it  is  equal  to 

DELER  w 


+ 


where  again  (N)  =  cell  number  of  the  donor  cell. 

The  mass  now  in  cell  (k)  is  equal  to  EEIM  =  AMX(k)  +  GAMC(j)  +  AMMY  - 
AMFY  -  AMMP  which  equals  the  original  mass  plus  the  mass  flow  across  the 
left,  the  bottom,  and  less  the  mass  flow  across  the  top  and  the  right. 

The  total  axial  momenta  that  have  come  into  or  left  cell  (k)  is  = 

SIGMV  =  YAMC(j)  +  AMMV  -  AMVT  -  AMVR  =  the  momenta  crossing  the  left 
boundary  plus  the  momenta  crossing  the  bottom  boundary  less  the  momenta 
crossing  the  top  and  the  right  boundary. 

The  total  radial  momenta  that  -has  come  into  or  left  cell  (k)  is 
SIGMU  *  FLEFf(j)  +  AJSflJ  -  AMOT  -  AMUR  =  momenta  crossing  the  left  and  bottom 
boundary  less  the  momenta  crossing  the  top  and  the  right. 

Similarly  we  calculate  the  toted  energy  that  these  fluxes  have  carried 
-  DELEK  -  (OAMC^j)  SUSC^j  +  (AMMY)  Deleb  -  (AMPY)  Delet  -  (AMMP)  Deler  = 
the  mass  times  the  total  specific  enerSY  at  the  left  plus  the  similar  term 
for  the  bottom  loss  the  similar  terms  for  the  top  and  the  right. 
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Now  by  conserving  momenta  and  total  energy,  calculate  the  new  specific 
internal  energy  and  velocities  of  cell  (k) . 

MUl  +  MUfi  -  MUt  -  MUr  +  MUk  =  (TOTAL  MASS)u 

where  total  mass  -  DEIM  and 

Mvl  +  Mvb  -  Mvt  -  Mvr  +  Mvk  =  (TOTAL  MASS)v 

and  the  new  specific  internal  energy 

T  el  *  eb  "  h  "  *R  *  \  u2  +  v2 

I(k)  "  DEIM  '  2. 

and  now  AMX(k)  set  «  to  DEIM. 

The  subscripts  L,  B,  T,  R,  refer  to  the  left,  bottom,  top,  and  right. 
Now  the  values  that  we  calculated  at  the  right  for  cell  (k)  are  now  set  to 
the  left  values  for  cell  (k+l)  and  the  pop  values  for  cell  (k)  now  become 
the  bottom  values  for  cell  (kA) .  / 

The  limits  of  the  DO  loops  on  i  and  j  are  il  and  12.  A  check  is  done 
to  see  if  mass  or  energy  has  moved  beyond  il  or  12  and  then  the  counter  is 
increased  by  1.  This  check  is  also  done  in  PHI.  By  using  this  scheme,  we 
pr  .ss  only  the  active  mesh  at  all  times,  in  all  the  subroutines. 

3.4.  List  of  Common  (OIL) 

The  location  refers  to  the  location  that  symbol  relative  to  the 
beginning  of  common.  Since  the  beginning  of  common  is  assigned  the  same 
location  for  each  subroutine,  a  program  (CARDS)  is  available  for  changing 
any  word  in  ccmmon.  The  z  block  is  first  in  common  for  OIL. 

Note  that  if  one  should  change  the  dimensions  of  the  arrays,  he  must 
be  careful  and  also  make  the  necessary  changes  of  the  locations  in  the 
following  tables. 
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Symbol 

Location 

No.  of 
Words 

Units 

Description 

AID 

706 

1 

— 

Not  used,  since  this  is  a  one-material 
(x)  code 

A3X 

707 

3500 

jerks/g 

Specific  internal  energy  (x)  for  cell  (k) 

AM 

4207 

130 

8 

Mass  of  particle  (N)  for  PIC  transport 
only 

AMD 

4337 

1 

-- 

Not  used  in  this  one-material  code 

AMK  UR(l6) 

220 

15 

8 

Storage  (EDIT)  for  sunning  masses  in 
given  angles  for  editing 

AMX 

4338 

3500 

8 

Total  (x)  mass  in  cell  k 

AREA 

7838 

1 

Tag,  used  in  HE  (EUL  and  PIC) 

BIG 

7839 

1 

-- 

Not  used 

BOUNCE 

7840 

1 

— 

Tag  used  in  particle  PIE 

CABIN 

82 

1 

— 

If  <  0  code  controls  At  but  at  Z(139) 

DDXN 

DDVK 

DKE 

DVK 

DX 

DY 

E 

FD 

FS 

FX 

OUT 

P 

PABOVE 


Caution:  You  must  load  a 
At  for  this  option 


This  holds  provided  SN  ^  0 

7841  1 

7842  1 

7843  1 

7844  1 

7845  52  cm 

7897  100  cm 

7997  1 

7998  1 

7999  1 

8000  1 

8001  1 

8002  -  3500  jerks/cm^ 

11502  1  jerks/cm^ 


of  instability 

If  =  0,  code  will  control  the  At, 
decreasing  fit  if  jjgtj  or  |Bi|exceed 

FFA  (an  input  number)  and  increasing 
At  if  juAtl  Qr  IvAtl  is  less  than  FFB 

^  ^  '(an  input  number) 

If  >  0,  DT  loaded  will  remain  constant. 

Not  used 

Not  used 

Not  used 

Not  used 

DX(i)  =  X(i)  -  X(i-l) 

OT(J)  =  Y(J)  -  Y(j-l) 

Not  used 
Not  used 

Not  used 

Tag  in  particle  FH2 
Material  pressure  in  cell  k 
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PBLO 

11503 

1 

O 

jerks/ cnr 

^(k)+  ^(cell  helow) 

2. 

PiDTS 

11504 

1 

l/cm.sh 

4t  a  mtd)  ln 

iSt  to™ 

PK  UR(31) 

235 

15 

g.cm/sh 

Radial  momentum  in  certain  angles  for 
editing 

PL,PR,GAMC  405 
pr(ioo) ,sig(c) 

200 

Many 

Pressure  in  PHI,  flux;  in  PH2,  etc. 

PPABOV 

H505 

1 

— 

Ncrt  used 

FRR 

11506 

1 

jerks/cm*3 

^(k)+  ^(cell  to  the  right) 

2. 

FUL 

11507 

1 

_  9m 

Not  used 

QDT 

11508 

1 

— 

Not  used 

OK 

250 

15 

g.cm/sh 

Axial  momentum  in  certain  angles  for 
editing 

RC 

11509 

1 

cm 

[(X(i)  +  X(i-l)]/2.  in  PHI 

ReZ 

11510 

1 

If  >  0  and  ReZFcT  >  0,  then  PH2  (EUL) 
will  call  subroutine  REZONE,  ReZ  set 
in  PH2. 

RHO 

11511 

1 

g/cm^ 

Density 

RL 

11512 

1 

— 

Not  used 

RR 

11513 

1 

cm 

[X(i)  +  X(i+l)]/2  in  PHI 

SIG 

11514 

1 

cm 

Minimum  A*  or  Ay  in  CDT  routine 

SIGN  = 
QOOOFL 

11515 

1 

0 

Not  used 

SWITCH 

11516 

1 

— 

Not  used 

TAB 

205 

15 

— 

Tan(a)  (Table  of, used  in  EDIT  routine) 

TABIM 

11517 

1 

~ 

Not  used 

TAD 

11518 

52 

2 

cm 

-  "(x(i)  ■  afi-i y  '  area 

tauhts 

11570 

1 

2  . 
cm  sh 

-  TAU( j.) At  in  PHI. 

TAUDTX 

11571 

1 

— 

Not  used 

U 

11572 

3500 

cm/sh 

R  component  of  velocity  in  cell  (k) 

UK 

15072 

1 

cm/sh 

R  component  of  velocity  in  cell  (k) 
used  in  PIC  transport 
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UL,UR,  Fie  ft  205  200 

etc. 


cm /sh  U(k)RC  +  U(k-l)RCC  where 

2. 


RCC  = 


-  X(i-1)  +  Xa-2) 


2, 


and 


URR 

15073 

1 

crn^/sh 

UT 

15074 

1 

-- 

UU 

15075 

1 

sh 

UUU 

15076 

1 

-- 

UTEF 

15077 

1 

cm/sh 

UVMAX 

15078 

1 

l/sh 

V 

15079 

3500 

cm/sh 

VABOVE 

18579 

1 

cm/sh 

VBTjO 

18580 

1 

cm/sh 

VEL 

18581 

1 

-- 

VK 

18582 

1 

cm/sh 

VT 

18583 

1 

VTEF 

18584 

1 

cm/  sh 

W 

18585 

1 

— 

WABOV 

18586 

1 

— 

WBLO 

18587 

1 

-- 

W2 

I85O8 

1 

-- 

W3 

18589 

1 

— 

WPS 

18590* 

1 

-- 

ws 

18591 

1 

WSA 

18592 

1 

WSB  ' 

18593 

1 

WSC 

18594 

1 

C  • 

[U(k)RC  +  U(k+1)  RR]/2. 

Signal  In  PK1  (decrease  At) 

Re w  At  if  PHI  integrates  hack  for 
I  <  0,  set  originally  to  lO1^. 

Not  used 

R  velocity  component  used  to  move 
particle  when  using  PIC  transport 

[Max  velocityj/Min(AX  or  AY) 

Axial  (z)  component  of  velocity  for 
cell  (k) 

[V(k)  +  V(cell  above) ]/2. 

[V(k)  +  V(cell  below) 3/2 . 

Used  as  a  tag  in  PHI  and  Max(y-l)  in 
COT,  and  tag  in  SUL.  FH2 

Axial  component  of  velocity  in  cell 
(k)  for  PIC  transport 

Not  used 

Z  velocity  component  used  to  move 
particle  when  using  PIC  transport 

Not  used 

Not  used 

Not  used 

Not  used 

Not  used 

Working  Storage 


v 
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XX 

152 

53 

c.n 

XX(2)  =  X(l) 

XL 

18595 

130 

era 

R  coordinate 

of  particle  N 

xlf 

18725 

l 

-~ 

Fraction  of  area  on  left  to  use  in 
velocity  weighting  for  PIC  PH2. 

XN 

18726 

1 

era 

R  coordinate 
(n-1) 

of  particle  N  at  cycle 

XR 

13727 

1 

»- 

Fraction  of  area  to  the  right  to  use  in 
velocity  weighting  for  PIC  PE2. 

XI 

73 

1 

-- 

Not  used 

X2 

79 

l 

— 

Not  used 

Y 

606 

100 

on 

Y(«j)  =  top  dimension  of  zone  (i,j) 

YL 

18723 

130 

era 

Z  coordinate 

of  particle  N 

YIW 

18358 

l 

— 

Fraction  of  area  helm/  to  be  used  in 
velocity  weighting  for  PIC  PH2. 

YN 

13359 

l 

cm 

Z  coordinate 
(n-1) 

of  particle  N  at  cycle 

YU 

18860 

1 

-- 

Fraction  of  area  above  to  be  used  in 
velocity  weighting  for  PIC  PH2. 

YY 

(YY(2) 

60s 

=  Y(l) 

l 

cm 

YY(J+1)  =  Y(j) 

Yl 

80 

l 

— 

Not  used 

Y2 

31 

l 

... 

Not  used 

Z 

1 

150 

— 

See  pages  where  Z(.l)  through  Z(l50) 
are  defined 

ZMAX 

10361 

l 

cm 

An  up-to-date  value  of  largest  Y 
coordinate  of  all  particles  used  in 

PIC  FIE. 

J 

-L 

18362 

1 

-- 

Index  (forking  Storage) 

ii 

18363 

i 

JL 

iN 

13364 

1 

iR 

18865 

1 

iWS 

18866 

1 

iUSA 

18367 

1 

i.USR 

18363 

l 

'  jC 

18869 

1 

-- 

f 

il 

47 

1 

— 

The  right  boundary  of  the  active  grid 

+  2, 


iMAX 


12 

48 

1 

— 

13 

49 

1 

14 

50 

1 

iWl 

18870 

130 

— 

j 

19000 

1 

-- 

SB 

190OI 

1 

JP 

19002 

1 

JR 

19003 

1 

K 

19004 

1 

— 

KDT 

41 

1 

— 

KN 

19005 

1 

— 

KP 

19006 

1 

KR 

19007 

1 

KRM 

19008 

1 

L 

19009 

1 

M 

19010 

1 

MA 

19011 

1 

MB 

19012 

1 

MC 

19013 

1 

MD 

.19014 

1 

ME 

19015 

1 

14Z 

19016 

1 

— 

N 

19017 

1 

NK 

19018 

NKKAX 

19019 

l 

— 

NK1 

19020 

1 

NO 

19021 

1 

NR 

19022 

1 

— 

The  top  boundary  of  active  grid  +  2 
MAX(i2)  =  JMAX 
Not  used 

Not  used 

=  (i)  of  the  cell  (k)  where  particle 
(N)  is  located,  used  in  PIC  HE. 

Index  (forking  Storage) 


Index  of  cell  defined  such  that 
k  =  (j-1)  1MAX  +  i+1 

If  KKT  =  0,  At  has  changed  if  /  0 
At  remains  constant 

Index  (Working  Storage) 


♦ 

Set  by  input,  used  in  EDIT  for  length 
of  g  block  to  write  on  tape,  present 
value  =  150 

Index(Working  Storage) 


Maximum  number  of  radiation  cycles/ 
hydro  cycle  calculated  in  CDT 
NR  £  NRM 
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iW2 

19023 

130 

=  (j)  value  of  cell  (k)  where  particle 
(N)  is  located,  used  in  PIC  PEE. 

iZ 

1 

150 

Many  Fixed  value  of  Z  block 

Fleft 

205 

100 

Equivalenced,  used  for  flux  terns 

YAMC 

304 

100 

in  Euler ian  continuous  (PH2) 

SIGC 

•  504 

100 

Location 

Symbol 

Units 

Description 

2(1) 

PHOB 

-- 

Problem  number  (if  positive,  this  is  an  OIL 
run]  if  negative,  this  is  a  PIC  run 

Z(2) 

pycis 

— 

Cycle  number  (floating  point  value) 

2(3) 

nr 

sh 

. .  ,  ,  , n  . n-1 

At  hydro  =  t  -  t 

2(4) 

PRINTS 

— 

Cycle  frequency  for  short  print 

2(5) 

PRINTL 

— 

Cycle  frequency  for  long  print 

2(6) 

DUMPT7 

— 

Cycle  frequency  for  binary  tape  dumps 

2(7) 

OSTOP 

— 

Cycle  number  at  which  problem  stops 

2(8) 

P.IDY 

— 

=  it  ■  3.1415927 

2(9) 

TMZ 

g 

Total  (X  +  ♦)  mass  at  t  =  0  (calculated  in 

CLAM 

2(10) 

GAM 

— 

Not  used 

2(11) 

GAMD 

— 

1-/(y*-1)  computed  in  Input 

2(12) 

GAMX 

— 

W(yx-D 

2(13) 

2TH 

jerks 

Total  energy  (computed  in  CLAM  for  t=0.) 
Changed  in  PHI  at  transmittive  boundaries  and 
in  PH2  if  mass  leaves  the  system,  and  by 
radiation  flow  out  of  the  system. 

2(14) 

FFA 

-- 

Upper  limit  for  stability  and  to  calculate 

At,  only  if  CABIN  »  0. 

2(15) 

FFB 

••  Ml 

Lower  limit  for  stability  and  to  calculate 

At,  oniy  if  CABIN  =  0. 

z(l6) 

TMDZ 

g 

Total  (*)  mass  (t  =  0)  calculated  in  CLAM 

2(17) 

TMX Z 

g 

Total  (x)  mass  (t  =  0)  calculated  in  CLAM 

Z(l8) 

XMAX 

cm 

=  X  (iMAX) 

2(13) 

TXMAX 

cm 

2  (XMAX)  t  =  0.  calculated  in  CLAM 

2(20) 

TYMAX 

cm 

2  (YMAX)  t  =  0.  calculated  in  CLAM 

2(2) 

mm 

g 

Min(’)  particle  mass/2. ;  calculated  in  CLAM 
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Z(22) 

AKXM 

g 

Min  (x)  particle  mass/2.  Calculated  in  CLAM 

2(23) 

BNN 

— 

(EEH  -  E)n"1JFC/ETH 

Z(24) 

IMIN 

— 

X£  (EGK)  Note  Z(76)  >  EMIN,  problem  will  stop 
and  the  edit  routine  will  call  dump. 

Z(25) 

FEF 

-- 

Not  used 

Z(26) 

DTNA 

sh 

At11"1 

Z(27) 

CVIS 

-- 

If  <  0,  bottom  boundary  is  treassmittivej 
otherwise  reflective  boundary. 

Z(28) 

NPR 

— 

Index  (Working  storage) 

Z(29) 

NPPd 

— 

tt  If 

z(30) 

NC 

— 

Cycle  number  in  fixed  point. 

2(31) 

NPC 

-- 

Number  of  cycles  between  short  prints 

z(32) 

NEC 

-- 

Index 

2(33) 

IMAX 

— 

Maximum  number  of  zones  in  R  direction 

z(34) 

iMAXA 

— 

iMAX  +  1 

z(35) 

JMAX 

-- 

Maximum  number  of  zones  in  Z  direction 

2(36) 

JMAXA 

— 

JMAX  +  1 

2(37) 

KMAX 

— 

(iMAX) (JMAX)  +  1 

Z(38) 

XMAXA 

-- 

KMAX  +  1 

Z(39) 

NMAX 

— 

Total  number  of  ^articles  -i  1,  generated  in 
CLAM  for  PIC  problem  only. 

z(4o) 

ND 

— 

Total  number  of  ( • )  particles  +  1  generated 
in  CLAM 

z(4l) 

KDT 

— 

Defined  previously 

Z(42) 

ixMAX 

-- 

Not  used 

z(43) 

NOD 

— 

Index 

z(44) 

NOPR 

— 

Index 

z(45) 

NiMAX 

— 

New  iMAX  before  adding  new  zones 

Z(46) 

NjMAX 

— 

New  JMAX  before  adding  new  zones 

2(47) 

il 

— 

Defined  previously 

Z(48) 

i2 

— 

Defined  previously 

Z(49) 

13 

-- 

Not  used 

z(50) 

14 

— 

Not  used 

2(51) 

N1 

-- 

Scratch  tape  number  for  particles  if  this  is  a 
PIC  run. 

2(52) 


N2 


Scratch  tape  number  for  particles  if  this  is  a 
PIC  run. 


!(G 

2(53) 

N3 

Number  of  particle  records  generated  If  this 

Is  a  FIC  run. 

Z(5J0 

N4 

— 

Number*  of  particles-1  par  record  (MAX  =  127) 
if  this  is  a  PIC  run. 

2(55) 

N5 

— * 

Not  used 

2(56) 

n6 

— 

Number  of  particles  on  last  particle  record 
if  this  is  a  PIC  run 

Z(57) 

N7 

-- 

Not  used 

z(53) 

K8 

— 

Not  used 

z(  59) 

N9 

— 

Rot  used 

z(6o) 

RIO 

-- 

=  ,i  value  of  zone  that  is  controlling  At 

z(6i) 

Nil 

=  j  value  of  zone  that  is  controlling  At 

Z(62) 

NRM 

-- 

=  maximum  number  of  Rad  cycles/Hydro  (input 
number) 

z(63) 

TRAD 

sh 

NR  •  At  Rad  =  AT  Efydro;  not  used  in  this 
version 

z(64) 

XNRG 

jerks 

Total  energy  of  (x)  material 

z(65) 

SN 

— 

If  =  0  code  will  decrease  At  to  correct  for 

I  <  0,  if  £  Of  those  I  <  0  are  left  alone 

z  (66) 

DXN 

— 

Not  used 

z(67) 

RADER 

g-cm/sh 

Total  positive  radial  momentum  (x  only) 

Z(63) 

RADET 

g-cm/ sh 

Total  positive  axial  momentum  (x  only) 

z(69) 

RADEB 

g-cm/  sh 

Total  positive  radial  momentum  (x)  for  material 
under  target 

z(70) 

HPRAD 

-- 

Not  used 

Z(71) 

REZFCT 

-- 

If  ~  Of  FH2  will  not  trigger  rezone 

Z(72) 

RSTOP 

— 

Not  used  in  continuous  version 

z(73) 

SHELL 

-- 

Not  used 

Z(74) 

BBOUKD 

— 

Not  used  in  this  version 

Z(75) 

TOZCNE 

g/GElJ 

Minimum  density  for  mass  flow  at  free  surface 

z(76) 

ECK 

,  ,  ;  /ETH  -  Exh  /ETH  -  Exn-NFC'l 

energy  cheek  [(  m  )  -  ("-jgf-)  J /EK3 

Z(77) 

SBCUND 

— 

Fraction  of  A  in  mass  weighting  velocity 

SUL  FH£  «  1.0 

2(73) 

XI 

— 

Rot  used 

Z(79) 

3 e 

— 

Rob  used 

Z(80) 

Y1 

~ 

Not  used 
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z(8l) 

Y2 

— 

Not  used 

z(82) 

CABIN 

— 

Already  defined 

Z(83) 

vise 

-- 

Not  used 

Z(84) 

T 

sh 

Total  tiiae  up  to  cycle  N,  tn  =  tn  ^  +  At 

Z(85) 

GMAX, 

— 

Maximum  of  y^  or  y. 

z  (86) 

WSGD 

-- 

Y* 

Z(8?) 

v/SGX 

— 

y  and  (y  -  l)  in  CM? 

Tx  fmax 

Z(83) 

GMADR 

— 

y-/(y«  -  1) 

2(39) 

GMAXR 

— 

yx/(yx  -  1) 

z(90) 

SI 

— 

Not  used 

Z(91) 

32 

-- 

Not  used 

z(92) 

S3 

-- 

Not  used 

z(93) 

S4 

— 

Net  used 

z(94) 

S5 

— 

Not  used 

2(95) 

s6 

-- 

Net  used 

2(96} 

S7 

— 

Not  used 

Z(97) 

S3 

-- 

Used  in  CLAM  only 

Z(98) 

S9 

Not  used 

Z(99) 

S10 

-- 

Not  used 

Z(100) 

f 

Mass  thrown  away  (PH2)  continuous  transport 

Z(101) 

jerks 

Total  energy  thrown  away 

Z(102) 

g-cm/sh 

Total  radial  momentum  thrown  away 

Z(103) 

g-cm/sh 

Total  axial  momentum  thrown  away 

Z(104) 

jerks 

Energy  (internal)  added  to  system  when 
internal  Is  set  to  0  if  I  <  0 

Z(105) 

Not  used 

z(lo6) 

-- 

Net  used 

Z(107) 

— 

Not  used 

Z(l03) 

— 

Not  used 

Z( 109) 

— 

Not  used 

z(uo) 

jerks/g 

Critical  energy  E(S),  same  value  as  Z(122) 

z(m) 

g/cm" 

Initial  density  of  material 

Z(112) 

cm/sh 

Initial  velocity  of  pellet 

Z(113) 

— 

Epsilonlcs  for  emptying  pellet  «  .01 

z(ll4) 

— 

Not  used 

2(115) 

Z(ll6) 

3(117) 

z(iio) 

z(ll9) 

Z(120) 

Z(l2l) 

Z(122) 

2(123) 

Z(124) 

Z(125) 

Z(126) 

Z(127) 

Z(128) 

Z(129) 

Z(130) 

Z(13l) 

Z(132) 

Z(133) 

z(134) 

Z(135) 

z(136) 

z(137) 

z(138) 

2(139) 

z(l4o) 

z(i4i) 

z(i4a) 

2(143) 

Z(l44) 

z(i45) 

Z(l46) 

Z(l47) 

Zfl¥3) 

Z(149) 

ZU50) 


g/crr* 
Jerks/g 
jerks/c r.r 


jerks/g 


jerks/ciir 


of  state 


Not  used 


I 

V 

g/cm  Density  check  if  p(k)  <  Z(l30)  stability  check 
for  cell  (k)  is  bypassed. 

Percent  of  instability,  used  in  CDT  if 
CABIN  <  0  w  .5 

—  Not  used 


1 

--  j  (of  pellet -target  interface)  at  t  =  0 

10^cm/sec  )  C( steed  of  30und  =  A  +  E?e  where  A  =  C 

__  i  0 

~~  j  and  P  is  in  megabazs 


A 

B 

e 


See  Ref.  5  for  a  more  detailed  description  of  the  equation  of  state. 
For  condensed  states, 


P  »  [a  +  - 1 - -j  |  +  Am  +  Bp2  i 


for  expanded  .states , , 


P  *»  aEp  + 


r  bEp 
L  -4.1 


<ih-  -Me-1)' 

+  AMe  ®  J  e  v0 


S0T? 


p=v  T)  =  ,  and  m 

v  p0 

E  =  specific  internal  energy 
Condensed  form  for  states  where 


=  11-1 


V  < 

rr-  «  1.  and  E  <  E( 

V0 


expanded  form  for  states  where 

5-  >  1  and  E  >  E0 

Vo  o 


She  following  table  contains  the  constants  for  the  above  equations . 
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4.  TEST  PROBLEMS 


4.1.  Technique 

A  series  of  one-dimensional  impact  problems  was  undertaken  to  select 

the  most  appropriate  scheme  for  the  velocity  weighting  in  the  mass  transport 

equation.  An  iron  projectile  traveling  at  a  velocity  of  1  x  10^  cm/sec 

striking  an  iron  target  was  used  as  the  standard  test  problem.  The  projectile 

had  five  zones  of  1-cm  each;  the  target  had  95  cones  of  1-cm  each.  The 

(5) 

equation  of  state  used  was  that  for  iron. 

Four  different  velocity  weighting  techniques  were  investigated  to 
determine  the  best  u  to  use  in  the  mass  transport  expression  puAt.  These 
are  illustrated  below,  for  the  case  where  the  flow  is  fran  cell  k  to  cell 
(k+1). 

The  four  different  approaches  were  as  follows: 


1. 

The  donor  cell  scheme: 

*  s  U(k) 

2. 

The  Rich  scheme^  ^ 

a(*nr  U(k-D 

(no  density  textas) 

u  =  u(k)  + 

4. 

3. 

The  OIL  scheme 

2. 

u  = 


l>  ♦ 

and  4,  another  scheme  where 

-  _  u(k)  .  >.i)  ,[u(t.i)  ~ 

2.  L  Ax  J 

The  donor  cell,  Fig.  looks  very  good  in  the  neighborhood  of  the 
shock  front;  however,  behind  the  front  (the  rarefaction  side)  instability 
sets  in.  Rich's  scheme  (without  his  density  weighting)  is  very  similar  to 
scheme  4.  The  present  scheme  3  now  used  in  the  OIL  code  was  chosen  as  the 
best  representation  of  the  shock  front  and  the  rarefaction  (Fig.  6). 

However,  the  results  indicate  the  possibility  of  using  the  donor  cell 
(scheme  l)  near  the  shock  front  and  one  of  the  other  three  schemes  in  the 
rest  of  the  problem. 
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4.2.  Comparison  of  SHELL  and  OIL 

An  iron  projectile,  3-cm-diam  by  3-cm  long,  strikes  an  iron  target 
at  a  velocity  of  4  x  10^  cm/sec.  The  problem  was  run  using  both  SHELL 
(PIC  transport)  and  OIL  (continuous  mass  transport.)  The  starting  conditions 
and  cell  sizes  were  the  same  for  both.  There  were  72  cells  in  the  projectile 
and  2976  in  the  target,  and  16  particles  per  cell  ;rere  used  in  the  SHELL 
run. 

Figure  7  is  a  plot  of  the  total  positive  axial  momentum  and  the  total 
positive  radial  momentum  (in  the  target)  vs  time  for  the  two  problems. 

Figure  8  shows  the  shock  pressure  vs  position  as  a  function  of  time  for  the 
two  problems.  The  agreement  between  the  two  techniques  is  very  good,  with 
the  SHELL  scheme  overshooting  the  theoretical  shock  pressure  by  a  somewhat 
larger  amount.  Figures  9  and  10  are  mass  flux  plots  of  the  two  schemes  vs 
zone  number,  again  at  45°.  Figure  11  is  a  pressure  and  compression  plot  of 
the  two  schemes  as  a  function  of  zone  number  along  a  ray  45°  fran  the 
initial  center  at  the  projectile  target  interface.  Figure  12  is  the  same 
information  at  a  later  time  of  9.2  nsec.  Throughout  all  the  comparisons, 
the  two  schemes  are  seen  to  be  in  very  good  agreement,  with  the  SHELL  scheme 
exhibiting  seme  undesirable  oscillatory  behavior  due  to  the  discrete  nature 
of  the  particle  population  in  the  cells.  Finally,  the  SHELL  run  required 
longer  machine  time  by  a  factor  of  15  over  the  OIL  run. 

4.3.  One -dimensional  Test  Problems 

Figure  13,  a  comparison  of  the  two  schemes  for  a  plane  wave  free 
expansion  problem.  Indicates  good  agreement  between  OIL  and  theory.  A  hot 
gas  extending  to  30  cm  with  a  p  of  .8  g/cn",  a  y  of  5/3,  and  specific 

_3 

internal  energy  of  9*1°  jerks/g,  with  a  rigid  wall  on  the  left,  was 
suddenly  released  and  free  to  rarefy  to  zero  pressure.  The  slight  rise  in 
mass  in  the  leading  edge  is  due  to  the  constraint  adopted  for  preventing 
mass  transport  to  diffuse  r.  cells  in  n  time  steps  (see  Section  3.1). 

A  second  "shock  tube"  problem  consisted  of  a  rigid  boundary  on  the 
left,  a  hot  gas  of  p  =  .8  g/cn,  a  y  of  5/3,  and  a  specific  internal  energy 
of  9  x  10"^  jerks/g,  which  was  allowed  to  shock  a  cold  region  extending 
from  30  cm  to  40  cm,  consisting  of  a  p  of  1.2  g/czr  and  a  y  of  5/3.  In 
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addition  to  the  OIL  and  SHELL  versions  of  this  flow,  a  third  comparison  was 
made  using  a  plane -geometry  version  of  a  one-dimensional  Lagrangien  (SRJTTER) 
code.  The  results  are  given  in  Figs.  14  and  15,  where  pressure  and  velocity 
are  plotted  as  functions  of  distances  in  hath  the  hot  and  cold  material. 

The  comparison  between  OIL  and  SPOTTER  is  very  good,  while  SHELL,  again, 
exhibits  an  oscillatory  behavior. 

Figure  1 6  shows  the  initial  setup  of  a  spherical  blast  problem  which 
was  run  using  the  three  codes,  SHELL,  OIL,  and  a  spherical  version  of 
SPUTTER.  Figure  37  is  the  pressure  versus  position  for  the  three  cases, 
and  Fig.  18  is  a  plot  of  density  versus  position.  In  the  latter  plot 
particularly,  SHJTTER  displays  a  decided  advantage  over  the  two  Eulerian 
methods.  This  is  due  to  the  fact  that  the  SHJTTER  ( Lagrangian)  zoning  was 
on  an  equal  mass  basis  and  the  resolution  is  accordingly  better  at  big  R. 
Hence,  there  are  many  zones  to  represent  the  density  discontinuity  or  shock 
location.  The  SHELL  and  OIL  results  are  very  similar,  with  the  OIL  results 
being  substantially  smoother. 

Figures  19  and  20  are  pressures  vs  position  along  the  r  and  z  axis 
for  the  SHELL  and  OIL  codes.  The  results  for  OIL  are  especially  interesting 
in  that  they  are  very  nearly  spherical,  where  the  results  for  SHELL  are  not 
as  smooth  and  are  slightly  different  along  the  two  axes,  partially  because 
of  the  preferential  movement  of  particles  that  exist  in  the  PIC  transport 
of  SHELL. 

The  spherical  character  of  the  OIL  solution  is  also  borne  out  by 
further  tests,  such  as  the  close  agreement,  to  about  one-tenth  of  one  percent, 
of  the  two  components  of  velocity  along  a  ray  45°  fra  the  axis  of  symmetry. 
The  fact  that  an  initially  spherical  problem  remains  spherical  is  gratifying 
as  evidence  that  the  differencing  or  transport  schemes  are  not  introducing 
significant  preferential  treatments  in  the  radial  or  axial  directions. 


ZONE 


SHELL 


(SMV8W)  3UTSS3Ud 


ecu 


SMtfSJSfD  3«inSS3Bc! 


CENTIMETERS 


CENTIMETERS 


CENTIMETERS 


CENTIMETERS 


non  0000 


5.1.  FORERAI  IV  LlffHlGS  OF  CL/M 


72. 

C  NOTE,  THE  BELOW  aET  Ur 
C  DIMENSION,  tJOlVALENCr  A  NO  CjMM^K  i  S 


TC  BE  USED  * IfH 

ALL  SUi> 

A Go TING 

S  IN 

CLAM,  WITH  T -it 

EXCEPT!;) 

*•»  OF  MAIN  ROUTINE. 

DIME 

N  S 

I 

0  N 

I NPU0020 
IKPU0030 

DIMENSION  AIX(43G0),AM( L  30  J , 

INPU0040 

1AMX(430Q),DX(52)  ,ENG:>( 2) ,  I  TAcK 

532) ,12(100), 

INPU0050 

2PONEI2I  ,TAb  15021, TAB  11 201  ,IA8IY{21)  ,T/.BK(20I  * 

1NPU0060 

3TA6UV (20) , T  A3X( 2i ) ,TAhV(21),TA 

u 1 52  I , TE«P( 13) , 

INPU0070 

4U( 4300) ,V (4300) 

,Xf  53) ,  XLU30) , 

xx(54). 

INPU0080 

5YU13GJ ,2(15)) , 

(i  iOO) ,YY( iOi ) , 

JY(IOO) 

I NPU0090 

DIMENSION  Irflll 

30) , Iw2( 

130) 

INPU0100 

COMMON 

l 

,  XX 

,14.3  ,  YY 

INPU0110 

COMMON 

AID 

, A I MA X 

,  A i X  ,AJMAX  , AM 

,  AMD 

INPU0120 

COMMON 

AAX 

,DX 

,EVt>U  ,FHX  ,GXN 

,  &XX 

INPU0130 

COMMON 

GYN 

,  GYX 

,1  , 1 A  ,ld 

,  I3A 

INPU0140 

COMMON 

I  >33 

,  ID 

<10  ,11  ,1  IC 

,  I  J 

I NPU0150 

COMMON 

IK 

,1KC 

,fJV  ,1UVC  , I WS 

,  I  mSA 

INPU0160 

COMMON 

1  r.Sb 

,  IX 

,  IXN  ,IXX  ,  I  Y.N 

,1  YX 

INPU0170 

COMMON 

J 

,JA 

,JT  »  J  f  M,  ,X 

,KE 

I NPUC180 

COMMON 

Kf 

,KK 

»L  »LA  »l  b 

,  L  o 

INPU0I90 

COMMON 

LE 

,Ll 

«LX  » M  ,31 

,M1  J 

INPUC200 

COMMON 

MJ 

,  -C’ t 

,MNP  ,MX  ,MXA 

,HXS 

INPU02I0 

COMMON 

M2 

♦  npk;; 

,\PP  ,M  ,  NX 

,  NY 

INPUC-220 

COMMON 

OOOCFL, 

KHO 

t  P  JNsr  ,  SL  A  ,  SL  8  »TABI 

INPU0230 

COMMON 

lArtl  Y 

,  TAo>< 

, TAbUV  ,  I A o /.  ,  T  A3  Y 

,  r  AM 

INPU0240 

COMMON 

TA'j 

,TbMP 

, Tf  MX  ,1 P IDY  , T  X 

,ty 

I NPU0250 

COMMON 

U 

,v 

, UP  I OY  ,WS  , W  SA 

*  U  SB 

I NPU0260 

COMMON 

hSC 

,  xSD 

,  v>  S  t  ,  W  S  F  ,  W  SO 

,  WS 1 

INPU0270 

COMMON 

WSl 

»8SU 

,WSV  ,*SX  , W SY 

,WS5 

INPU0280 

COMMON 

XC 

,  XL 

,VC  ,YL  ,  YMAX 

,WSR 

1NPU0290 

COMMON 

PE 

,  PM 

,UX  ,T  1 Y  ,LF 

,E 

I NPU0300 

COMMON 

PEE 

,  NPRk 

,NYY  ,DY  ,NK 

, SWITCH 

1 NPU0310 

COMMON 

IW1 

,  IW2 

INPU0320 

INPU0400 

E 

0  U 

1  V 

A  L  6  N  C 

E 

I NPU0410 
INPU0420 

OEQUI VALENCE 

(2,12, 

P«0»>  , 

(2(2)  .CYCLE), 

(2(3) ,DT), 

INPU0430 

1( Z (4) ,PkINTS)  , 

(2(5), 

PR  1 NIL  ) 

,  (  Z  ( t>  1  , DUMP  I  7)  , 

(2(7)  ,CSTL'P)  , 

INPU0440 

2( Z( 8) «P  IDY )  , 

(2(9;, 

TMZ )  , 

(2(10), GAM)  , 

(2(11) ,GAMD)  , 

INPU0450 

3( Z( 12  )  , GAMX )  , 

(2(13) 

, ETH) , 

( 2 ( 14 ) , FFA )  , 

( Z ( 1 5 ) ,FF6) , 

INPU0460 

4(Z(16),TMDZ), 

(Z( 17) 

,TMXZ)  , 

( Z ( 1 8 ) , XMAX ) , 

(2(19) ,TXMAX) , 

1 NPU0470 

5(Z( 20 ) , IYMAX ) , 

(2(21) 

,  AMDM)  , 

(2(82), AMXM), 

(2(23) ,DNN) , 

INPUC480 

6(2(24), DMIN) , 

(2(25) 

,FEF)  , 

( 2 ( 26 ) , DTNA) > 

(2(27), CVIS), 

I NPU0490 

7<Z128) »NPK) , 

(2(29) 

,N?RI  ), 

(2(aO),  NO, 

(2(31) ,NPCi , 

INPU0500 

0(2(32), NRC ) , 

(2(33) 

,  I/UX), 

( 2 ( 34 ) , I MAXA )  , 

f  Z (35 ) , JMAX )  , 

I NPU0510 

9(Z<36) » JMAXA)  , 

(2(37) 

,KMAX)  , 

(2(35), XMAXA ) , 

(2(39) »NMAX ) 

INPU0520 

OEQOI  VALENCE 

(2(40) 

,  NO )  , 

(2(41), KDT), 

(2(42) ,IXMAX) , 

I NPU0530 

1( Z ( 43 ) , NOD ) * 

(2(44) 

, NUPK )  , 

( 2(45 ) »NIMAX) , 

(2(46) ,NJMAX), 

INPU0540 

flews*«*«ao< 
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C 


2U(47)»Il), 
3(Z(5l),Nl), 
4IZI55) ,N5) , 
5IZ(59)«N9) 9 
64 Z( 63) » TRAD) , 
7(2(67), RADER), 
8(Z(7l ) #R£ZFCT )  * 
9( Z ( 75 ) * TOZGNE } » 
OEQUIVALENCE 
i(Z(B2)«CA6LN) , 
2(Z(86) ,MSGD) , 
3(2(90) , SI) , 

4(Z( 94) ,  S5) » 
51Z196),S9) , 
OEQUIVALENCE 
1(YYC2)»Y(1U 


I Z(48)^12) , 
(ZI52),N2), 
(ZI56),N6), 

( Z(60) ,  N10) « 
(Z(64),XNRG) » 

( Z( 68)«RADET) , 
(Z(72) »RSTOPS  * 
4Z(  761 ,£Cfc)  » 
2Z( 79} ,X2) » 

(Z( 83) , VISC) « 
(Z( 87) ,WSGX) * 

( Z( 91) »  S2) « 

(Z( 95)»S6) « 

( Z( 99) t  S10) 
2Z,IZ), 


I2<49),!3), 
(Z(53),N3) » 
(Z257)«N7), 
(Z(6i),Nli) , 
2Z(65),SN), 
(Z(69) , RAPES) « 
(Z( 73), SHELL) « 
iZ(77),S80UN0J, 
(Z(80),Y1), 
(Z284}*T) « 

(Z( 88), GMAOR) , 

(Z(92)*S3), 

(Z(96),S7), 

(XX(2),XU)), 


(Z(50) ,14), 

( Z( 54) ,N4) , 
(Z(58) *N8) , 
(Z(62) »NRM)  « 

(  Z(66) ,OXN) « 
2Z(70) ,DTRABI « 
(Z(74) *8B0UND) 
( 2278) ,X1) 

( Z(81 ) ,Y2) , 

( Z(85) ,GKAX) , 
(2(89) ,GMAXR) * 
(Z(93) »S4) * 
(Z(97) ,S8) ♦ 

(TAB, ITAB) , 


NOTE  .  ALTHOUGH  THE  DIMENSIONS  FOR  THE  CELL 
QUANTITIES  ARE  4300  IN  CLAH,  THE  DIMENSIONS 
FOR  OIL  ARE  3500,  THAT  IS,  KEEP  UMAX)  (JHAX) 
♦1  LESS  THAN  3499. 


INPU0550 

INPUC560 

INPU0570 

1NPD0580 

INPU0590 

INPU0600 

INPU0610 

INPU0620 

INPU0630  - 

INPU0640 

INPU0650 

I NPU0660 

INPU0670 

INPU0680 

INPU0690 

INPU0700 

INPU0710 


noonfton  aooooo  oo  n  o  o  C'  o  o 
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FIBFTC  MAIN  LIST  ,DEtX,Rcr 
CHAIN 

LAM  #*«.#**  MAIN  ttvJtir* 

**  IF  PROt>L tA  «D«BER  IS  NEG/.TIVt, 

CLAM  tflLL  WRITE  THE  PARTICLES  Oh  TAPL, 
PREPARING  II  FOR  A  PIC  RUN. 

**♦  NOTE  J1  MATERIAL  OH  LY  1 1  XU 

CALL  SLITS  101 

INPUT  fiC‘L«Tl*E  CALCULATES  THE  ACTUAL  U*.10, 
DIMENSIONS  AND  INDICES. 

10  CALL  INPUT 

PHI,  READS  IN  DATA  CAPOS  FOR  THt 
PACKAGES*  PH2  CALCULAit.,  THt  GLLHETfclCS* 

PH3  THE  PARTICLES*  PH4  CALLS  THE 
6  POSSIBLE  FITS  ThAT  CALCULATE  THE 
DENS I TV,  VELOCITIES  410  INTERNAL  ENERGY 
OF  THE  PARTICLES. 

20  CALL  PHI 

OUTPUT  CALCULATE.,  THE  VELOCITY  (tffilH 
RADIAL  AND  AXIAL  >  ANj  SPcCIFIC  IrTEINAL 
ENERGY  OF  EACH  CELL  FROM  THE 
TOTAL  MOMENTA  AND  INTERNAL 
ENERGY  A*fO  MASS  OF  EACH  CELL. 

OUTPUT  ALSO  PREPARES  A  JUMP  TAP*; 

WHICH  IS  USED  THEN  U  S  AH  OIL. 

30  CALL  OUTPUT 
CALL  EXIT 
END 


MAIN0010 
MAI MOO 20 
MAINC030 


MAIN0040 
MAI N0Q50 
KAIN0060 


MAIN0070 


MAXN0080 


MAIW0090 

KAIN0100 

MAIN0110 


on  noon  ooooo  o  o  non 
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SIBFTC  INPUT  LISr,Ofc£.fc*REF 
SUBROUTINE  INPUT 


******  MOTE  <1  MATERIAL  CfiLY  HXJJ 
MZ=150 

CLEAR  l  BLOCK. 

DO  30  1=1, HL 
30  Z(11=0.0 

READ  IN  HEADING  CARD 
READ  I5.8012IIWS 
IWS=1 

WRITE  16*801211 1  <*51 
WRITE  16,8100) 

READ  IN  PROBLEM  CONST AMT S 
PRGS^PRGB LEM  NO.  AIM4X=I«A/, 

AJMAX=JMAX*  UCOOFL  IS  NOT  USED-SET 
TO  ZERO.  SHELL  S£T=2.,Se,59  ARE 
ZERO*  SET  N7  TO=TAPE  NO. 

READ  i 5*8004 i PROS »  A I MAX, AJMAA , 3000FL • SHELL  *  S8 , S9 *«7 
IFtK7l40,40,50 
40  N7-7 
50  CONTINUE 

NAX.  NUMBER  OF  ZONE S  IN  R  DIRECTION. 

MI-50 

MAX.  NUMBER  OF  ZONES  IN  Z  DIRECTION. 

MJ*100 

MAX.  NUMBER  OF  PARTICLES/CEtL. 

MNP=400 

SIZE  OF  TABLE  I TAB  I 

JTK=500 

MAXIMUM  I*J 
MAX.  NUMBER  OF  CELLS. 

60  MIJ=4299 

C  CALCULATE  ADDITIONAL  INDICES  FOR  CLAM  AND  OIL. 

70  IMAX-AIMAX 
JMAX-AJMAX 
1MAXA*1MAX*1 
IXMAX-IMAXA+l 
JMAXA-JMAXF1 
KMAX- I I MAX* UMAX ) ♦ 2 
KMAXA=KMAX  1 

WRITE  I  6*6048? (PRO0,IMAX*JMAX> 

C  CHECK  INPUT  NOS.  CONCERNED  WITH  GRID  SIZE. 

101  IFUMAX-MI 1 102,102,9901 

102  IF! JMAX-MJ 1 104*104,9902 
104  IFIKMAX-MIJ-ll 106, 106*9903 
106  N0D=1 

NPC-l 

NRC=0 


INPU0010 

INPU0730 

INPU0940 

INPU0950 

INPU0960 

INPU0970 

INPUO980 

INPU099G 

INPOIOQQ 

IHPUIOIQ 

IMPU1020 

1NPU1030 

INPU1040 


1NPU105D 

INPU106C 

INPU1080 

INPU1090 

INPU1100 

INPU1U0 

INPU1120 

INPU1130 

INPU1140 

1NP01150 

INPUT  160 
INPU1170 
INPU1180 
INPU1190 
IUPUIZOO 
INPU1210 
IHPU12Z0 
INPU1230 

INPU1240 

INPU1250 

INPU126C 

INPUI270 

INPU1280 

INPU1290 


76 


C  Pfc&D  IN  Vi  AND  ©X 

S=© 

J=9 

XIIJ=©.© 

YIJJ=©.© 

2000  READ  l5*Slt2II«SA,IWS6*Wi,.J».2,fti-,.}ii4,!  J£*P4X»,A=H,4f 

L— 1 

C  COUNT  WO,  Of  DIFFERENT  D«  O*  3Y. 

I FIN4 I 2003 *2001 *2003 

2001  1 F I W3 1 2004*  2002 • 2004 

2002  IF I W2) 2006 *2008* 2006 

2003  L=L+1 

2004  L=L+1 
2006  L=L+1 

2008  IFIItf$BI2010*2010*2030 
C  PROCESS  THE  OX  AND  ©Y  VALUES. 

2010  00  2014  W=1*L 
NK=IZIN+50I 
DO  2012  X=1,NK 
1=1+1 

DX<IJ=T£MP<NI 

xui=xu-i)+oxu) 

2012  CONTINUE 
2014  CONTI WOE 

GO  TO  2050 

C  CALC  THE  Y  AND  Of  V ALOES 

2030  DO  2034  J#»1,L 
NK=IZ1N+50I 
00  2032  K=1*NK 

J=J+1 

DYI J|=TEWP(NI 
Yf JJ=Y!J— 1 l+QYI J I 
2032  CONTINUE 
2034  CONTINUE 

2050  IFf IW5AJ2052*2000,2052 
C  IFl-i  READ  MORE  OX  Ok  Or  DATA  CARDS. 

2052  IF! J-JNAXI 9905,2053, 99C 5 

C  CHECK  INPUT  NUMBERS. 

2053  IF! I-IMAXI9906, 2054, 9906 

2054  CONTINUE 

READ  !5*&0G41WS,R$A,W53, SWITCH 
C  Nl,  AND  N2  ARE  THE  2  SCRATCH  TAPES. 

N1=*S 
N2=WSA 
REWIND  Nl 
REWIND  N2 

C  N4=HAX.  NUMBER  OF  PARTICLrS-1  PER  RECORD. 

N4=WSB 

NPRI=N4 

NPRR=N4 


IWPU13©© 
IINWT1310 
IS)  1320 
i  .1330 
IIWU134© 
INPU135© 
INPUT 360 

ITHPU3  37© 
INF© 138© 
INPUT  39© 
mw  140© 
1MFU141© 
IMP© 142© 
INPU143© 

INPUT 44© 
1NPU145© 
INPU146© 
INPU147© 
INPU148© 
INPU149C 
INPU150© 
INPU151© 
INPU152© 
INPU1530 
IWPU154© 
IWPU1550 
1NPU156Q 

INPUT 580 
I NPU 159© 
INPUT600 
INPUlfel© 
IWPU1620 

1NPU1630 

INPU1640 

INPU165G 

INPUT660 

INPU1670 

INPU1680 

JNPU1690 

5NPU1700 

INPU1710 

INPU1720 

INPU1730 


WRITE  a  I XJ  l  }  ,  3-  0,IWmAJ 

WRITE  a  6.E0C31  JIMAX.I  n  J$  ,  Jl=0, 

*5=3.1415927 

WSA=©.© 

C  CALCULATE  THE  A»£A»5? TA©J=PS IR2  I 3**2- 
C  Rt I— 11**2 B - 

©0  10©S  I=i,liKAX 

WS®=W5A 

WSA=XI 3 i**2 

1008  TA©IIl=W5*<*'SA-WSai 
C  WRITE  OUT  X»if,©X„DY,  Afil©  fJWii  VALUtS- 

WR I  IE  I  £s  3©££  3  il  MAX *1©* <13.3  =  1* I  MAX  1 
WRITE  <6«8©67»J,»WU»I©T'ai#*a=i*J«A*l 
WRITE  I  o, 8092 )  i  IMAX,  I  TAOf  I  J  ,  I =1  * IMA* 8  8 
1010  X9«AX=Xi  IMAX1 

TXMAX=XPAX*2.© 

Y«AX=iri jmaxb 
TYMAX=Y.WAX*2.© 

C  PIOY  IS  REALLY  PH  3. 14159271 . 

PIOY-WS 

C  SET  VELOCITIES,  INTERNAL  ENERGIES  AtUD  MASSES 

C  TO  0. 

CO  1014  1=1,X»AXA 

oil 1=0.0 

VI 11=0-0 
A IX 1 1 1=©»0 
AMX( I 1=0-0 
1014  CONTINUE 

C  SET  TOTAL  ENERGY  TO  ZERO. 

£TH=0.G 

C  I  INITIALIZE  MIN.  2«ASS  PARTICLE  TO  A  LARGE  NO. 

AWDM=1-E*28 
ANX«=A*0W 
GO  TO  2016 

C  ERROR 

9901  KK=10I 

GO  yo  9999 

9902  NK=1®2 

GO  TO  9999 

9903  MX =104 

GO  TO  9999 

C  JRAX  DDEi  NUT  ECUAL  THE  SOU  OF  THE  INPUT  J 

9905  NK=2052 
GO  TO  9999 

C  IHAX  ODES  NOT  EQUAL  THE  SUM  OF  THE  INPUT  l 

9906  XX=2053 

9999  WRITE  <6,88831NX,  I ,  J,X,L,M,N 
PRINT  8836, NX, I , J,X»L,K,N 
CALL  DUMP 
2016  RETURN 


I.TiliWlJ!  7i  ->,  D 

a.wpoiTsc 
IN?©  17 .6  3 
3NP© 177© 


JNiPU17<&u; 

INPU179G 

INS©!*©© 

3NP01B1C 

mpm-ezo 

3AIP0183© 

INPU13-*© 

INPU1S5D 

INPUISS© 

INPUTS?© 

INPU183© 

2Npyas9© 


INPJJ191© 
I WPG 192© 
INPU193C) 
INPU194© 
INPU195© 
INPM9S0 

3NPU197© 

INPUT9B© 
INP13199© 
INPU20©© 
INPU201© 
INPU202© 
I  MW©  3© 
INPU204© 
INPU205© 
INPU2G6© 
INPU207© 
INPU203© 
INPU209© 
INPU21©© 
INPU211© 
INPU212© 
I  MW  130 
INPU214© 
INPU215D 
INPU216D 
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C  FORM A  I h 

6004  FORMAT  < 7E10.5, 12) 

30120F0RMAT  (ii»71HlHl:,  I  :>  T'iE  CLAM  PROGRAM  AM.  f  HERE  IS  AIM  ERROR . 
1  ) 

S048  FORMAT ( 1H  /9H  PRITo  NU.F9.3t  1  ?X ,  2lil  =12 ,2fcX »  2HJM  2 ) 

8064  FORMA T ( 1H  /10H  X ( 1 >  1=0 , 1 2/ ! 5F it. 6 ) ) 

8065  FORMAT  I  1H  /10H  YU)  J=0,  1 2/ {  5F  1 6.  6  )) 

8066  FORMAT ( 1H  /11H  OX ( I )  1= 1 , 1 2/ ( 5F 16. 6) ) 

8067  FORMAT  I  1H  /ilH  DYU)  J=  1  , 1 2/ I  5F  1  c.  6  )  ) 

3092  FORMAT  (  1H  /13H  AR  i:  A  (  i  )  1  =  1  ,  i  2/ Ufl  6.6  )  ) 

8100  FORMAT!  IH  /14H  (SrirlLL  INPUT  >  ) 

8102  FORMAT! 21 1 « 41? 1 4bl 0. 4) 


I NPU2170 
I NPU2180 
I NPU2190 
INPU2200 
INPU2210 
I NPU2220 
INPU2230 
INPU2240 
I NPU2250 
I NPU2260 
I NPIJ2270 
INPU2280 


8888  FORMAT!  1H+/P6H1  INPUT  tRKOK  IN  :A  ATfcMEN  1 1  *> ,  1 2X,  1  2  H  INDICES  ARfc61  7  J  I NPU2290 


INPU2300 


$ IBFTC  PHI  LIST , DECK, REF 


c 

SUBROUTINE  PHI 

PHI 

PHI 

0010 

0740 

c 

*****  NOTE  <1  MATERIAL  ONLY  (IXH 

PHI 

0950 

c 

READ  IN  GEOMETRY  ETC. 

PHI 

0960 

NPP=7 

PHI 

0980 

NPR=NPP-1 

PHI 

0990 

TPIDY=PIDY*2.0 

PHI 

1000 

ND=0 

PHI 

1010 

NX=Q 

PHI 

1020 

NT— 1 

PHI 

1030' 

c 

NYY=1 

FIRST  CARD  OF  EACH  PACKAGE. 

PHI 

1040 

c 

READ  (5,8008) IX,LX,MX,TEMP(1) ,  TEMP ( 2 ) , TEMPI  3 ) 

•INITIALIZE  THE  NUMBER  OF  PACKAGES  TO  0. 

PHI 

1050 

2015 

NPKG=0 

PHI 

1060 

IF! IX-1 )990 1,2018, 20 18 

PHI 

1070 

2016 

IX=I 

PHI 

1080 

LX=L 

PHI 

1090 

MX=M 

PHI 

1100 

c 

C 

IF  THERE  ARE  NO  MORE  PACKAGES  GO  COMPUTE  TOTAL  VALUES 
THE  LAST  CARO  HAS  A  2  PUNCH  IN  COL  1. 

PHI 

1110 

2017 

IF! IX-2 >2018,7000,9902 

PHI 

1120 

2018 

J=0 

PHI 

1130 

C 

NFKG=NPKG+1 

SET  PACKAGE  MASS  AND  ENERGY  TO  0. 

PHI 

1140 

PE=0.0 

PHI 

1150 

c 

c 

PM=0. 0 

ORIGIN  FOR  THE  RADIUS  VECTORS  TO  BE  USED 

FOR  THE  FIT  ROUTINES! 1  THRU  6). 

PHI 

1160 

VC=TEMP( 1) 

PHI 

1170 

c 

c 

XC=TEMP!2> 

S8  CONTAINS  THE  FIT  NUMBER  FOR  THE 

PACKAGE  IN  QUESTION. 

PHI 

1180 

S8=TEMP(3> 

PHI 

1190 

c 

c 

WRITE  <6,8100) (NPKG»MX) 

NOW  READ  IN  THE  GEOMETRY  AND  DENSITY, 

ENERGY  AND  VELOCITY  CARDS. 

PHI 

1200 

2020 

READ  (5,8008) I,L,M, (TEMP(N) ,N=1,6) 

PHI 

1210 

IWS=1 

PHI 

1220 

C 

C 

C 

C 

IF! 1-5)2021,2040,2022 

IF=,  THIS  IS  A  RHO,  VELOCITY  OR  ENERGY  CARD. 

IF  LESS,  YOU  HAVE  READ  ALL  CAROS  FOR  THIS 

PACKAGE  IN,  PLUS  THE  FIRST  CARD  FROM  THE 

NEXT  PACKAGE. 

PHI 

1230 

2021 

C 

IF! 1-3) 2060, 9903, 2026 

If  GREATER,  EITHER  A  TRIANGLE  OR  PERTURBED  ELLIPSE. 

PHI 

1240 

2022 

C 

IFIU9904, 2030, 2024 

A  PERTURBED  ELLIPSE. 

p;-u 

1250 

2024 

I  WS=7 

PHI 

1260 

[ 

GO  TO  2030 

PHI 

1270 

!  2026 

I  WS=3 

PHI 

1280 

;  2027 

IF(L) 9905,2030,2026 

PHI 

1290 

j  2028 

I  WS=5 

PHI 

1300 

C 

A  TRIANGLE. 

2030 

IF(M)9906, 2034, 2032 

PHI 

1310 

C 

IF=,  OELETE  THIS  GEOMETRY. 

2032 

IWS=IWS+1 

PHI 

1320 

2034 

J=J+1 

PHI 

1330 

C 

TAB  STORAGE  CONTAINS  THE  COORDINATES  OF 

C 

GEOMETRY. 

ITABI JI-IWS 

PHI 

1340 

DO  2036  N=1,NPR 

PHI 

1350 

J=J+1 

PHI 

1360 

2036 

TAB( J )=T£MP( N) 

PHI 

1370 

GO  TO  2020 

PHI 

1380 

C 

ONE  ONLY  RHO,I,U  OR  V  ALLOWED  PER 

PACKAGE 

PHI 

1390 

C 

IF=,  THIS  IS  A  DENSITY  CARD. 

2040 

IF(L-l) 9907, 2046, 2042 

PHI 

1400 

,C 

IF  GREATER,  EITHER  A  VELOCITY  OR  ENERGY  CARD 

• 

2042 

IF(L-3) 2052, 2058,9908 

PHI 

1410 

C 

IF=,  THIS  IS  A  VELOCITY  CARO,  IF  LESS,  THIS 

IS 

A 

C 

ENERGY  CARO. 

;c 

DENSITY 

PHI 

1420 

2046 

DO  2048  N= 1 »  6 

PHI 

1430 

|  2048 

TABRIN)=TEMPIN) 

PHI 

1440 

i 

GO  TO  2020 

PHI 

1450 

C 

ENERGY 

PHI 

1460 

i  2052 

DO  2054  N=l»6 

PHI 

1470 

2054 

TABl(N)=TEMP(N) 

PHI 

1480 

GO  TO  2020 

PHI 

1490 

C 

VELOCITY  (U  AND  VI 

PHI 

1500 

2058 

DC  2059  N= I , 6 

PHI 

1510 

2059 

TABUV(NI=TEMPIN* 

PHI 

1520 

GO  TO  2020 

PHI 

1530 

C 

OUTPUT  DENSITY,  ENERGY,  AND  VELOCITY 

PARAMETERS 

PHI 

1540 

c 

ALL  CARDS  FOR  THIS  PACKAGE  HAVE 

c 

BEEN  READ  IN. 

2060 

IF(J-JTM) 2070, 2070, 9915 

PHI 

1550 

NO.  OF  PACKAGES  EXCEED  (721,  NOTE 

ic 

JTM  S£T=TO  500  IN  INPUT,  THUS  MAX. 

ic 

NO.  OF  PACKAGES  =  72,  UNLESS  DIMENSIONS 

IC 

ARE  CHANGED. 

2070 

WRITE  (6, 8C36KTABRUI)  ,11  =  1,6) 

PHI 

1560 

1 

WRITE  16, 8038HTABK  III,  11-1,6) 

PHI 

1570 

WRITE  (6,8040) (TABUVi II ), 11=1,6) 

PHI 

1580 

ic 

COMPUTE  BOUNDARIES  Of  GEOMETRIES  FOR 

EFFICIENCY  IN 

PHI 

1590 

ic 

GENERATING  OR  DELETING  PARTICLES 

PHI 

1600 

j  ?000 

CALL  PH2 

PHI 

1610 

ic 

COMPUTE  I  (  0  } ,  I  ( N ) ,J(Q)  AND  J(N),FROM 

PREVIOUSLY 

PHI 

1620 

ooo  or.  oooo 
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COMPUTED  VALUES, FOR  UPPER  AND  LOWER  LIMITS  IN 
THE  CELL  MESH  SCAN 

IXN=MINIMUM  (I)  OF  GEOMETRY  OF  PACKAGE 
I YN=MINIMUM  IJ)  OF  GEOMETRY  OF  PACKAGE 
IXX=MAXIMUM  (I)  OF  GEOMETRY  OF  PACKAGE 
I YX=nAXIMUM  (J)  OF  GEOMETRY  OF  PACKAGE 
3001  I XN"1 
IXX=1 

IWS=IMAX-1 

3800  IF(IWSI9929, 3820, 3801 

3801  DO  3808  N=1,IWS 
IFIXINI-GXN) 3802, 3804,3804 

3802  I XN=I XN+1 

3804  IFIXCN)-GXX)3806, 3806, 3808 
3806  IXX=IXX+1 
3808  CONTINUE 

IFUXNJ3812, 3812, 3814 

3812  I XN=1 

3814  IF( I MAX- 1 XX 13816,3818,3818 

3816  IXX-IMAX 

3818  IF( IXN-IXXI3820, 3820, 9930 

3820  I YN=1 
I  YX=1 

I WS=JMAX— 1 

3821  IF(IWS)9929, 3834, 3822 

3822  DO  3813  N=1,IKS 

3823  IF»  YI N) -GYN) 3819,3817,3817 

3819  IYN=IYN+1 

3817  IF(Y(N)-GYX)3615, 3815, 3813 

3815  1YX=I YX+1 

3813  CONTINUE 

1FC I YN) 3824,3824,3826 

3824  I YN=i 

3826  IFC JMAX-IYXI3828, 3830,3830 
3828  IYX=JMAX 

3830  IF( IYN-IYXJ3834, 3834, 9931 
3834  WRITE  1 6,804411 XN, I YN, I XX, I YX 

SCAN  CELL  MESH  TO  DETERMINE  IF  PARTICLES  ARE  TO  8E 
GENERATED  OR  DELETED 
GENERATE  PARTICLES 

4000  CALL  PH3 

C  REARRANGE  X,Y  AND  M  FOR  PARTICLES  IF  NECESSARY 

6011  LA=NY-NT 

IF ILX 19947,6020,6022 
6020  NO=ND+LA 

GO  TO  6024 
6022  NX=NX+LA 
6024  NT=NY 

ETH=FTH+P£ 

C  REPLACE  60676000000C  8Y-181I5198976 


PHI  1630 
PHI  1640 


PHI  1650 
PHI  1660 
PHI  1670 
PHI  1680 
PHI  1690 
PHI  1700 
PHI  1710 
PHI  1720 
PHI  1730 
PHI  1740 
PHI  1750 
PHI  1760 
PHI  1770 
PHI  1780 
PHI  1790 
PHI  1800 
PHI  1810 
PHI  1820 
PHI  1830 
PHI  1840 
PHI  1850 
PHI  I860 
PHI  1870 
PHI  1880 
PHI  1890 
PHI  1900 
PHI  1910 
PHI  1920 
PHI  1930 
PHI  1940 
PHI  1950 
PHI  1960 
PHI  1970 
PHI  1980 
PHI  1990 
PHI  2000 
PHI  2010 
PHI  2020 
PHI  2030 
PHI  2040 
PHI  2050 
PHI  2060 
PHI  2070 
PHI  2080 


u  u  u  u  u 


I  6026 
|  C 

|  6028 
|  6030 

C 

t  6050 
1  7000 


4050 


4051 


4052 

4060 


9901 


i  9902 


9903 


i  9904 


9905 


9906 


9907 


9908 


9915 


9929 


9930 


9931 


9933 


WS=I -ABS<- 18115198976 >) 

I FI  LX > 9933 » 602 8 1 60 30 

REPLACE  244663000000  BY  22125740032 

WS=  ABS!  2212574003 2) 

WRITE  !6»8501)LA»WS,PEr?M 

GU  READ  IN  NEXT  PACKAGE 

GO  TO  2016 
NMAX=NT 

NNAX=MAX.  NUMBER  OF  PART ICLfcS+1 . 

YOU  HAVE  PROCESSED  ALL  PACKAGES,  ALL 
PARTICLES,  NOW  GO  TO  THE  CJUTPUI. 

IF! AMI  2 ) >4051,4050,4051 

N3=NRC 

GO  TO  4060 

NRC=NRC+1 

N3-NRC 

N3=N0»  OF  PARTICLE  RECORDS  OF 
N4  WORDS. 

IFIPR0B14052, 4052, 4060 

WRITE  (N2HAMU),XL(  I),YL(  I),IW1U  ) ,  I W2  ( I  >  ,  I=2,NPRIJ 
N6=NMAX-( N4- 1 >  * ( N3~ 1 ) 

N0PR=N3 
REWIND  N2 
GO  TO  10000 

ERROR 

NK=2015 
GO  TO  9999 
NK=2017 
GO  TO  9999 
NK=2021 
GO  TO  9999 
NK=2022 
GO  TO  9999 
NK=2027 
GO  TO  9999 
NK=2030 
GO  TO  9999 
NK=2040 
GO  TO  9999 
NK=2042 
GO  TO  9999 
NK-2060 
GO  TO  9999 
NK=3800 
GO  TO  9999 
NK=3818 
GO  TO  9999 
NK=3830 
GO  TO  9999 
NK=6026 


PHI  2090 
PHI  2100 
PHI  2110 
PHI  2120 
PHI  2130 
PHI  2140 
PHI  2150 
PHI  2160 


PHI  2170 
PHI  2180 
PHI  2190 
PHI  2200 
PHI  2210 


PHI  2220 
PHI  2230 
PHI  2240 
PHI  2250 
PHI  2260 
PHI  2270 
PHI  2280 
PHI  2290 
PHI  2300 
PHI  2310 
PHI  2320 
PHI  2330 
PHI  2340 
PHI  2350 
PHI  2360 
PHI  2370 
PHI  2380 
PHI  2390 
PHI  2400 
PHI  2410 
PHI  2420 
PHI  2430 
PHI  2440 
PHI  2450 
PHI  2460 
PHI  2470 
PHI  2480 
PHI  2490 
PHI  2500 
PHI  2510 
PHI  2520 
PHI  2530 


83* 


GO  TO  9999  PHI 

9947  NK=6011  PHI 

9999  WRITE  <6,8888>NK  PHI 

PRINT  8888, NK  PHI 

CALL  DUMP  PHI 

iOOOO  RETURN  PHI 

C  FORMATS  PHI 

8008  FORMAT  I2X1,I5,£13.5,5E10.5)  PHI 

8036  FORMAT ( 1H07X  »8HDENS I TY  9X,1P6E16.6)  PHI 

8038  FORMAT! 1H07X»8HENERGY  9X,1P6E16.6)  PHI 

8040  FORMAT ( 1H07X ,8HV£L0C I TY9X, 1P6E16.6/1H0/ )  PHI 

8044  FORMAT  {  1H  /6H  I U ) = I2,4X, 5HJ U > =12 ,4X,5HI( N) =12 ,4X, 5HJ( N) =12 )  PHI 

8I000F0RMAT ( IH0///12H0PACKAGE  NO. 1 3 , 1 20 , 1 5H  PARTICLES/CELL//33X,2HAII4XPH1 
1 , 2HA2 14X, 2HA314X, 2HA414X, 2HA514X.2HA6 )  PHI 

85010FORMAT ( 1H0/I 28, 2H  (A3,11H)  PARTICLES22X ,4HP£  =1PE 12.6, 16X,4HPM  =E1PH1 
12.6)  PHI 

8888  FORMAT ( 23H1PH1  ERROR  IN  STATEMENTI 5 )  PHI 

END  PHI 


? 

5 


2540f 
2550| 
2560| 
25705 
2580| 
25901 
26001 
26101 
2620| 
2630 ! 
2640  { 
2650 
2660 
2670 
2680 
2690 
2700 
2710 


noooon  oooooo  o  o  ooooo 
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$  IBFTC  PH2  LIST ,D£CK»REF 

SUBROUTINE  PH2 

CALCULATE  THE  PACKAGE  GEOMETRIES 


GENERATING  OR  DELETING  PARTICLES 
J=VALUE  OF  LAST  COORDINATE  READ  IN. 

JT-J 

INITIALIZE  OUTER  BOUNDARIES. 

GXN-XMAX 
GYN=YMAX 
GXX=0.0 
GYX=0.0 

NPP=7( SET  IN  PHI). 

DO  3700  J=1,JT,NPP 
IWS  STORED  IN  ITAB  ARRAY  IN  PHI. 

IF  1 WS-2! A  TRIANGLE), IF=4!A  RECTANGLE), 

IF=6» A  ELLIPSE  OR  CIRCLE.  IF  IWS=8,A 
PERTURBED  ELLIPSE.  IF  IWS  IS  LESS  THAN 
THESE  VALUES,  THE  DEFINITION  STILL  HOLDS,  BUT 
NOW  DELETE  THIS  GEOMETRY. 

KK-! ITAB!J)~l)/2 

3007  IF!KK)9919, 3010,3008 

3008  IFIKK-2J3100, 3200, 3009 

3009  IF!KK-4)3400, 9920,9920 
TRIANGLE 

VERTICES  CAN  BE  INPUTED  IN  ANY  ORDER, 

X  COORDINATE  FIRST. 

SEARCH  FOR  THE  LARGEST  XIWSE)  AND 
SMALLEST  X(WSD). 

FIND  MAXIMUMIWSE)  AND  MINIMUM! WSD)  X  COORDINATE 

3010  IF! TAB! J+l )- TAB! J+3  ))  30 11, 30  12, 30 13 

3011  WSE=TA8!J+3) 

WSD=TABi J+l ) 

GO  TO  3014 

3012  TAB!  J+l)=TAB!J+l  1*1.0000001+  1.0E-8 

3013  WSE=TAB! J+l) 

WSD=TAB! J+3 ) 

3014  IF! TAB! J+5 ) -WSD) 3020, 3019,3016 

3016  IF! TAB! J+5 ) -WSE) 3024,301 7,3018 

3017  TAB! J+5 »=TAB! J+5 )*1. 0000001+ i.OE-8 

3018  WS£=TAB( J+5) 

GO  TO  3024 

3019  TAB! J+5)=TAB! J+5 )*0. 9999999- l.OE-8 

3020  WSO=TAB! J+51 

C  ARRANGE  VERTICES  IN  ASCENDING  ORDER 

3024  IFCTABl J+2)-TABi J+4) )3036, 3034, 3038 
3034  TAB! J+2 ) =T AB ! J+2 ) * l . OOOOOO 1+ 1 • 0fc-8 
GO  TO  3038 


PH2  0010 
PH2  0020 
PH2  0740 
PH2  0950 
PH2  0960 
PH2  0970 

PH2  0980 

PH2  0990 
PH2  1000 
PH2  1010 
PH2  1020 

PH2  1030 


PH2  1040 
PH2  1050 
PH2  1060 
PH2  1070 
PH2  ? 080 


PH2  1090 
PH2  1100 
PH2  1110 
PH2  1120 
PH2  1130 
PH2  1140 
PH2  1150 
PH2  1160 
PH2  1170 
PH2  1180 
PH2  1190 
PH2  1200 
PH2  1210 
PH2  1220 
PH2  1230 
PH2  1240 
PH2  1250 
PH2  1260 
PH2  1270 


O  O 


3036  WSA=TAB( J+l) 

WS8-TA8(.K2) 

TABIJ*1I=TAB< J+3) 

TABIJ*2)=TABIJ*4) 

TABCJ+3)=WSA 

TABIJ*4)=kfSB 

3038  IFITABIJ*4>-TABIJ*6) >3042,3040,3044 
3040  TAB! J+6)=TAB( J*6)*0. 9999999-1, OE-8 
GO  TO  3044 
3042  «SA=TABIJ*3I 
WS8=TAB( J+4) 

TAB(J+3)=TAB(J+5) 

TAB! J+4 )=TAB ( J+6 ) 

TAB<J+5)=WSA 
TAB! J+6)=WSB 
GO  TO  3024 

WSF^MINIMUM  VALUE  OF  Y 
WSG=MAXIMUM  VALUE  OF  Y 
3044  WSF=TAB(J+6) 

WSG=TAB(J*2> 

C  COMPUTE  SLOPES 

SLA=(  TAB(  J+4 )-TA8t  J-*  2 )  )  /  ( TAB I  J*3)-TABI  J+l )  ) 
SLB=(TABC J+6I-TAB4 J+2) )/ UAE { J*5)-TABC J+l) I 

3053  1F(SLA-SLB)3054, 9921, 3058 

3054  IFISLA) 3056,9922, 3064 
3056  IFCSLBI3064, 9923, 3062 
3058  IFISLA) 3062,9924,3056 
3062  WSA=TAB( J+3) 

WSB=TAB{  J-t-4) 

WSC-SLA 

TABIJ+3)=TA8IJ+5) 

TAB! J+4)=TAB| J+6) 

SLA-SL8 

TAB|J+5)=WSA 

TAB!J*6)=WSB 

SLB=WSC 

3064  IFITABC J+3I-TABI4+5)  >3066,9925,3068 
3066  ITAB(3i=ITABO)+2 
lWS=ITABIJ)-3 
GO  TO  3069 

3068  IWS-ITABI Ji-1 

3069  KE=J*1 
KF=KE*5 

C  REPLACE  272545000000  BY  25058082816 

WS=  ABS(  25058082816) 

IFIIWS) 3072, 3070, 3072 

C  REPLACE  242543000000  BY  21836333056 

3070  WS=  ABS(  21836333056) 

3072  WRITE  I6,8016)HS, (TAB(N) ,N=KE,KF) 

WS=TABI J+2 )-SLB*TA8 U+i ) 


PH2  1280 
PH2  1290 
PH2  1300 
PH2  1310 
PH2  1320 
PH2  1330 
PH2  1340 
PH2  1350 
PH2  1360 
PH2  1370 
PH2  1380 
PH2  1390 
PH2  1400 
PH2  1410 
PH2  1420 
PH2  1430 


PH2  1440 
PH2  1450 
PH2  1460 
PH2  1470 
PH2  1480 
PH2  1490 
PH2  1500 
PH2  1510 
PH2  1520 
PH2  1530 
PH2  1540 
PH2  1550 
PH2  1560 
PH2  1570 
PH2  1580 
PH2  1590 
PH2  1600 
PH2  1610 
PH2  1620 
PH2  1630 
PH2  1640 
PH2  1650 
PH2  1660 
PH2  1670 
PH2  1680 
PH2  1690 
PH2  1700 
PH2  1710 
PH2  1720 
PH2  1730 
PH2  1740 
PH2  1750 
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TAB4  J+i )=TA64  J+2 )-SLA*TA84  J+l ) 

PH2 

1760 

TAB4 J+6)  =  4  TAB4 J+6)-T A64 J+4) ) / 4  TAB4  J+5 ) -TAB4 J+  3) ) 

PH2 

1770 

TAB4 J+5)=TAB<J+4)-TAB4J+6)*TAB( J+3) 

PH2 

1780 

TAB! J+2)=SLA 

PH2 

1790 

TA84J+3)=WS 

PH2 

1800 

TA84J+4)=SLB 

PH2 

1810 

GO  TO  3600 

PH2 

1820 

c 

RECTANGLE 

PH2 

1830 

3100 

ITAB4J)“iTAB(J)+2 

PH2 

1840 

IWS=ITAB4 J)-5 

PH2 

1850 

c 

REPLACE  27254500GG 00  BY  25058082816 

PH2 

1860 

WS=  ABS4  25058082816) 

PH2 

1870 

IFIIWS>3110, 3105, 3110 

PH2 

1880 

c 

REPLACE  242543000000  8Y  21836333056 

PH2 

1890 

3105 

WS=  ABSt  21836333056) 

PH2 

1900 

3110 

WRITE  (6* 8020) WS» TAB (J+i),TA0(J+2) ,TAB( J+3) ,TA84 J+4) 

PH2 

1910 

WSD=TAB4J+1) 

PH2 

1920 

WS£=TABt  J+2 ) 

PH2 

1930 

WSF=TAB4 J+3) 

PM2 

1940 

WSG=TAB( J+4) 

PH2 

1950 

GO  TO  3600 

PH2 

1960 

C 

ELLIPSE  OR  CIRCLE 

PH2 

1970 

3200 

IF4ABStTABt J+l >-TAB< J+2) )-1.0E-8) 3300, 3300, 3202 

PH2 

1980 

3202 

IFITABIJ+2) ) 9926, 3300,3203 

PH2 

1990 

C 

ELLIPSE  WITH  NO  PERTURBATION 

PH2 

2000 

3203 

I'TABf  J)  =  ITAB(  J)»2 

PH2 

2010 

IWS= 1 TABC  J)-7 

PH2 

2020 

C 

REPLACE  272545000000  BY  25058082816 

PH2 

2030 

WS=  ABSC  25058082816) 

PH2 

2040 

IFUWS)  3210,3205,3210 

PH2 

2050 

C 

REPLACE  2 42543000000  BY  21836333056 

PH2 

2060 

3205 

WS=  A3S(  21836333056) 

PH2 

2070 

3210 

WRITE  (6*  8024) WS, TAB ( J  + 1 ) ,TAB(  J+2) ,TAB{ J+3) ,TAB{ J+4 ) 

PH2 

2080 

3215 

WSO=TAB( J+3)-TAB(  J  +  l) 

PH2 

2090 

WSE=TAB4J+3>+TABt J+l) 

PH2 

2100 

WSF=TA8t J+4)~TABt  J+2) 

PH2 

2110 

WSG=TAB( J+4)+TAB{ J+2 ) 

PH2 

2120 

TAB! J+l )=TAB( J+l)**2 

PH2 

2130 

TAB! J+2)=TAB(J+2)**2 

PH2 

2140 

GO  TO  3600 

FH2 

2150 

C 

CIRCLE 

PH2 

2160 

3300 

ITAB( J)=ITAB(J)+4 

PH2 

2170 

l«S=ITAB(J}-9 

PH2 

2180 

TAB ( J+2 ) “TAB ( J+l) 

PH2 

2190 

r " 

o 

REPLACE  2 72545000000  BY  25058082016 

PH2 

2200 

WS=  A8SI  25058082816) 

PH2 

2210 

JFUWS)3310, 3305, 3310 

PH2 

2220 

c 

REPLACE  242543000000  BY  21836333056 

PH2 

2230 

3305 

WS=  ABSt  21836333056) 

PH2 

2240 

3310 

WRITE  46,8028)WS,TAB< J+l) ,TABt J+3) , TAB ( J+4) 

PH2 

2250 

■mmanw.  1  *  ->» 
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GO  TO  3215 

0  ELLIPSE  WITH  PERTURBATION 

3400  ITABi«i)-lTABi  JI+4 

MS-l.O-ITABt  J+51/TABI J4-11  }**2 
IWSA=ITA8< J+71 

OTABI J*7 1  =  ( TAB! J+C 1-TAB( J+4  J -TAB! J*2 l*SQRTI WS* 1/ 
1  C  (TAB{J+51*(TAB(J*51-TAB(J+1)  11**21 

IWS=ITAB( Jl-11 
KE=J*l 
KF*K£+6 

C  REPLACE  272545000000  BY  25058082816 
WSA=  ABS(  25058082816} 

IFUWSI 3410*  3405,  3410 
C  REPLACE  24254300000C  BY  21836333056 
3405  WSA=  A8SC  21836333056} 

3410  WRITE  (6,B032)WSA, ( TAB(N) , N=KE*KF1 
3415  IFIMS19927, 9927, 3420 
3420  IF(TAB(J+31 19928,3425,9928 
3425  TAB! J+31=TABI J+71 
ITABI J+7)=IMSA 
WSA=TA8I J+21+TABIJ+2 1/4.0 
WSD-0.0 

WSE=TAB(J+11+TABCJ+1 1/4.0 
WSF— TAB! J+41 -WSA 
WSG=TABI J+41+WSA 

C  DETERMINE  BOUNDARIES  OF  GEOMETRIES 

3600  IFIWSD-GXNl 3602,3604, 3604 
C  MAXIMUM  i XI 
3602  GXNsHSD 

3604  IF! WSE-GXX) 3608,3608,3606 
C  MINIMUM  (XI 
3606  GXX=WSE 

3608  IFIWSF-GYN13610, 3612, 3612 
C  MAXIMUM  C Y 1 
3610  GYN=WSF 

3612  IFIWSG-GYX13700, 3700, 3614 
C  MINIMUM  I Y 1 
3614  6YX=WSG 
3700  CONTINUE 
4=JT 

GO  TO  10000 

C  ERROR 

9919  NK=3007 

GO  TO  9999 

9920  NK=3009 

GO  TO  9999 

9921  NK=3053 

GO  TO  9999 

9922  NK=3054 
GO  TO  9999 


PH2  2260 
PH2  2270 
PH2  2280 
PH2  2290 
PH2  2300 
PH2  2310 
PH2  2320 
PH2  2330  ! 
PH2  2340 
PH2  2350  j 
PH2  2360  . 
PK2  2370 
PH2  2380  ; 
PH2  2390  ! 
PH2  2400  : 
PH2  2410 
PH2  2420 
PH2  2430 
PH2  2440 
PH2  2450 
PH2  2460 
PH2  2470 
PH2  2480 
PH2  2490 
PH2  2500 
PH2  2510 
PH2  2520 

PH2  2530 
PH2  2540 

PH2  2550 
PH2  2560 

yH2  2570 
PH2  2580 

PH2  2590 
PH2  2600 
PH2  2610 
PH2  2620 
PH2  2630 
PH2  2640 
PH2  2650 
PH2  2660 
PH2  2670 
PH2  2680 
PH2  2690 
PH2  2700 
PH2  2710 


88 


9923  NK= 3056 

GO  TO  9999 

9924  NK=3058 

GO  TO  9999 

9925  MK=3064 

GO  TO  9999 

9926  NK=3202 

GO  TO  9999 

9927  NK=3415 

GO  TO  9999 

9928  NK=3420 


9999  HRITE  !6,6688)NK  \ 

PRINT  8888 »NK 
CALL  DUMP 
10000  RETURN 

8016  FORMAT I 15H0TR l ANGLE  -  A3,7h  - 

8020  FORMAT { 15H0R£CTaNGLc  -  A3,7H  - 

8024  FORMAT! 15H0ELL IPSE  -  A3,7H  - 

8028  FORMAT! 15H0CIRCLE  -  A3,7M  - 

8032  FORMAT ! 15H0P  ELLIPSE  -  A3, - 

8888  FORMAT !  23H1PH2  ERROR  lK  ST  AT  EMt.’lT  1  b) 
END 


lPc£lo.6) 
i  *6c  16.61 
iP6E16.t>)  . 

1  PE16.r>,  16X,  4L  16.6) 
1  P6fc  lf>.6 ! 


PH2  2720 
PH2  2730 
PH2  2740 
PH2  2750 
PH2  2760 
PH2  2770 
PH2  2780 
PH2  2790 
PH2  2800 
PH2  2810 
PH2  2820 
PH2  2830 
PH2  2840 
PH2  2850 
PH2  28*0 
PH2  28  iO 
PH2  2880 
PH2  2890 
PH2  2900 
PH2  2910 
PH2  2920 
Ph2  2930 


non  on  no  no  non  on  oooooooon 


89 


SIBFTC  PH3  LIST, DECK, REF 
SUBROUTINE  PH3 

GENERATE  (OR  DELETE)  THE  PARTICLES 


4000 


4010 


40  i  2 


SCAN  CELL  MESH  TO  DETERMINE  IF  PARTICLES  ARE  TO  BE 
GENERATED  OR  DELETED 
GEf'ERATE  PARTICLES 
SAVE  CURRENT  VALUES  OF  COUNTERS. 

I  A=I 
JA=J 
IJ=K 
JT=L 

IFI IX— I 19932,4010,9932 
IFIMX-MNP) 4012,4012,9935 

IF  GREATER,  YOU  TRIED  TO  GENERATE  MORE  THAN 
400  PARTICLES  /  CELL. 

WS=MX 


FMX=SQRT(MS) 

MXS=FMX*.5 

4011  IF4MXS*MXS-MX)9936, 4013, 9936 

IFI GREATER  OR  LESS)  THE  NO.  OF  PARTICLES  /  CELL 
THAT  YOU  REQUESTED  WAS  NOT  N  SQ.  WHERE 
N  IS  FROM  1  TO  20. 

4013  MXA=1-MX 

TFMX=.5/FMX 
WPIDY=TPIDY/FNX 
4015  IFIMXAI4018, 4018, 9937 

IF  GREATER,  YOU  HAVE  FAILED  TO  SPECIFY  THE 
NO.  OF  PARTICLES  TO  GENERATE. 

4018  NY=NT 

00  5700  I=IXN,IXX 

COMPUTE  THE  COORDINATE  OF  THE  PARTICLE 
UNDER  CONSIDERATION 
WS5=DXI I )/FMX 

THE  VOLUME  OF  THE  SUBDIVIDED  CELL  = 

PII2.*XLIN) DY/N*DY/N ) . 

TABXI 1)-X( I )-TFMX*DXI I ) 

4019  IFIMXAI4020, 4024,9938 

4020  DQ  4022  K=2,MXS 

WE  START  AT  THE  RIGHT  AND  TOP  OF  CELL(K). 

SET  UP  ARRAY  FOR  X  COORDINATES  OF  THE 
PARTICLES. 

4022  TABXIK)  =TABXI  K-D-WS5 
C  J  LOOP,  LIMITS  OF  Y  FOR  THIS  PACKAGE. 

4024  DO  5700  J=IYN,IYX 

TAM=WPI0Y*kS5*DYIJ) 

C  TAM"  2PI/N*DX/N*DY 


PH3  0010 
PH3  0020 
PH3  0740 
PH3  0950 
PH3  0960 
PH3  0970 
PH3  0980 
PH3  0990 
PH3  1000 

PH3  1010 
PH3  1020 
PH3  1030 
PH3  1040 
PH3  1050 
PH3  1060 


PH3  1070 
PH3  1080 
PH3  1090 
PH3  1100 


PH3  1110 
PH3  1120 
PH3  1130 
PH3  1140 


PH3  1150 
PH3  1160 
PH3  1170 
PH3  1180 
PH3  1190 


PH3  1200 
PH3  1210 
PH3  1220 


PH3  1230 

PH3  1240 
PH3  1250 


wirvw/ 
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E=0.0 

PH3 

1260 

I IWS=0 

PH3 

1270 

1WS=0 

PH3 

1280 

18=0 

PH3 

1290 

WS=DY< JJ/FMX 

PH3 

1300 

TA8YtlJ=Y{ J)-TFMX*DY(J) 

PH3 

1310 

c 

MXS=N 

00  4026  K=2,MXS 

PH3 

1320 

c 

SET  UP  ARRAY  FOR  Y  COORDINATES  OF  THE 

c 

PARTICLES. 

4026 

TABY<K)=TABY(K-1)-W$ 

PH3 

1330 

C 

K  USED  FOR  THE  TELL  QUANTITIES. 

K={ J-1)*IMAX+I+1 

PH3 

1340 

4028 

IBB=I B/MXS 

PH3 

1350 

IB=IB+1 

PH3 

1360 

IBA=MOD(IB,MXS) 

PH3 

1370 

C 

TX=X  COORDINATE  OF  PARTICLE  IN  QUESTION. 

TX=TABX( I BA+1 1 

PH3 

1380 

C 

TY=Y  COORDINATE  OF  PARTICLE  IN  QUESTION. 

TY=TABYIIBB+l) 

PH3 

1390 

C 

GENERATE  V\  OELtT£  THE  PARTICLE 

PH3 

1400 

1 0=0 

PH3 

1410 

IG=0 

PH3 

1420 

DO  4200  L=1 » JA»NPP 

PH3 

1430 

KK=IT  AB { L } 

PH3 

1440 

IFCKK-5 14062 »4078, 4070 

PH3 

1450 

C 

TRIANGLE 

PH3 

1460 

4062 

WSX=( TY-TAB ( L-fri  ) )  /  TAB  1 L+2 ) 

PH3 

147C 

IF! WSX-TX 14064, 4064, 4200 

PH3 

1480 

4064 

WSX=( T Y-TABi L+3 ) ) /TAB ( L+4 ) 

PH3 

1490 

IPl WSX-TX) 4200,4066,4066 

PH3 

1500 

4066 

WSY=TAB(L+6)*TX  +  TAB(4_+5) 

PH3 

1510 

IFIKK-2 14068, 4068, 4072 

PH3 

1520 

4068 

IF(WSY-TY) 4200, 4070,4070 

PH3 

1530 

4G70 

GO  TO  (4074,4076,4074,40761 ?KK 

PH3 

1540 

4072 

I F ( WSY-TY 140  70,4070,4200 

TH3 

1550 

4074 

I  D=1 

PH3 

1560 

GO  TO  4200 

PH3 

1570 

4076 

IG=I 

PH3 

1580 

GO  TO  4200 

PH3 

1590 

4078 

KK=KK-4 

PH3 

1600 

4077 

IF (KK-8 14079, 4094, 9939 

PH  3 

1610 

4079 

GO  TO  (4080,4080,4090,4090,4092,4092,4094) ?KK 

PH3 

1620 

C 

RECTANGLE 

PH3 

1630 

4080 

IF (TAB(L+x)-TX) 4082,4082, 4200 

PH3 

1640 

4082 

IF ( TAB { L+2 )-TXJ 4200 ,4084, 4084 

PH3 

1650 

4084 

IFITABJ L+3)-TY >4086, 4086, 4200 

PH3 

166G 

4086 

2F<  TAB*.  L+4) -TY)  4200,4088, 4088 

PH3 

167G 

4086 

GO  TO  (A074,4076),KK. 

PH3 

1680 

C 

ELLIPSE  HUH  NO  PERTURBATION 

PH3 

1690 

'*wr 


on  ci  no  o  •  ooooo 
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4090  XK=KK-2 

IFI  (TX-TAB4L+3  )  )**2/TAB( L+l ) -*■  I  TY-TABI C+4)  )**2 
1/TA8IL+2)- 1.0) 4088, 4088, 4200 
C  CIRCLE 

4092  KK=KK-4 

0IFUTX-TABIL+3)  l**2+(TY-TAB(L+4))**2-TAB(L+ll  ) 

1  4088,4088*4200 

C  ELLIPSE  WITH  PERTURBATION 

4094  KK=KK-6 

0IFUTX/TABIL+1)  )**2+< TY-TABl L+4  )-TABC L+3) *{ TX* 

1  ITX-TABU+1)  )  )**2)**2/TAB(L4-2l~l. 0)4088, 4088, 4200 

4200  CONTINUE 

C  IF  10=1  DELETE 

4201  IFIIDI9940, 4310,4800 

C  IF  10=0  AND  IG=0  DELETE 

4310  IF<IG)9941, 4800, 4312 
C  GENERATE  PARTICLE 

4312  NY=NY+1 

IFIIIWS)23, 22*23 

22  IIWS=1 

23  IWS=1 
NYY=NYY-*-l 
CALL  PH4 

RETURN  FROM  PH4  WITH  THE  FOLLOWING  DATA, 
WSR=PARTICLE  DENSITY 
WSI=PARTICLE  SPECIFIC  INTERNAL  ENERGY 
WSU=RAOIAL  VELOCITY  COMPONENT  OF  PARTICLE 
WSV=AXIAL  VELOCITY  COMPONENT  OF  PARTICLE 

4332  N=NYY 

IF! I I WS 14335,4335,24 

24  IIWS=~1  -  - 

4333  IFIAMX(K) 19951,4335,4334 
CALCULATE  PACKAGE  ENERGY, 

4334  £=UUIKI**2+V«K)**2)/(ANX(K)  )  )*.5+AIXiK) 

SET  THE  PARTICLE  COORDINATES  INTO  THE 
PROPER  ARRAYS. 

4335  XL4N)=TX 
YL(N)=TY 

SET  I  AND  J  OF  CELL  KILOCATION  OF  PARTICLE). 

IW1( N) = I 
IW2IN)=J 

CALCULATE  PARTICLE  MASS  AS 
=2PI/N*DX/N*QY*XLCNi*RH0. 

AM4N)=TAM*TX*WSR 

4341  IFCLX}9945,^342,434a 

4342  W5=AM<N)*WSI 
IF(AK«N3~ANDMI16, 15,15 

16  A*OM=AMsNi 
15  CONTINUE 
PM=PM+AMCN) 


PH3  1700 
PH3  1710 
PH3  1720 
PH3  1730 
PH3  1740 
PH3  1750 
PH 3  1760 
PH3  1770 
PH3  1780 
PH3  1790 
PH3  1800 
PH3  1810 
PH3  1820 
PH3  1830 
PH3  1840 
PH3  1850 
PH3  1860 
PH3  1870 
PH3  1880 
PH3  1890 
PH3  1900 
PH3  1910 
PH3  1950 


PH3  1960 
PH3  1970 
PH3  1980; 
PH3  1990 

PH3  2000 


PH3  2010 
PH3  2020 

PH3  2030 
PH3  2040 


PH3  2050 
PH3  2060 
P13  2070 
PH3  2080 
PH3  2090 
PH3  2100 
PH3  2110 


no  no 


AM<N)=-AMIN) 

GO  TO  4346 
4344  WS=AM(N)*WSl 

If ’AMINl-AMXMJIS,!?, 17 
18  AHXM=AM(N) 

17  AIXU)=AlX(K)«-WS 
PM=PM+AMi N ) 

SUM  UP  MASS,  BOTH  COMPONENTS  OF  MOMENTA 
ANO  TOTAL  INTERNAL  ENERGY  IN  CELL  K. 

AMXI K)=AMX { K )+AMI N) 

4346  U(K)=U<Ki+ABS(AMIN)  )  *WSU 
V(K)=V(K)+ABS(AM(nJ )*WSV 
I F( NY-NPRR ) 4800  *14,9945 
14  NRC=NRC+1 

NPRR=NPRR+NPRI-1 

IF{ PROS  15000,5000, 500 1 

WRITE  PARTICLES  ON  TAPE  IF  THIS  IS  TO 

BE  A  PIC  RUN. 

5000  WRITE  (N2HAMIN)  ,XL(N),YL(N),  I  Wl(  N)  «  IW2  (N)  ,N=2,NPRI) 

5001  NYY= 1 

3  00  2  N=2*NPRI 

C  SET  PARTICLE  ARRAYS  TO  ZERO. 

XL(NI =0.0 
YL(N)=0.0 
AMIN) =0.0 
!WHNI=0 
Ite2( Nl=0 
2  CONTINUE 

4800  I F{ MX- 2 8)9946,4880, 4028 
CALCULATE  ENERGY  FOR  P  K  G 
4880  JFUWS)4900, 5700, 4900 
4900  IFIAMXIK))9951, 5700, 4910 

4910  PEE={U<K)**2+V{K)**2  )/<AMX(K)  i*,5*AIX{K) 

4930  IFIE)4950,4  - ....  4940 
4940  PEE=PEE-E 
4950  PE=PE+PEE 
5700  CONTINUE 
I  =  IA 
J=JA 
K=IJ 
L=JT 

GO  TO  10000 

C  ERROR 

9932  NK-4000 

GO  TC  9999 

9935  NK  -4010 

GO  TO  9999 

9936  NK=4011 

GO  TO  9 >99 

9937  NK=4015 


PH3  2120 
PH3  2130 
PH3  2140 
PH3  2150 
PH3  2160 
PH3  2170 
PH3  2180 


PK3  2190 
PH3  2200 
PH3  2210 
?H3  2220 
Phi  2230 
PH3  2240 
PH3  2250 


PH3  2260 
PH3  2270 
PH3  2280 

PH3  2290 
PH3  2300 
PH3  2310 
PH3  2320 
PH3  2330 
PH 3  2340 
PHJ  2350 
PH3  2360 
PH3  2370 
PH3  2380 
PH3  2390 
PH3  2400 
PH3  2410 
PH3  2420 
PH3  2430 
PH3  2440 
PH3  2450 
PH3  2460 
PH3  2470 
PH3  2480 
PB3  2490 
PH3  2500 
PH3  2510 
PH 3  2520 
PH3  2530 
PH3  2540 
PH3  2550 
PH3  2560 


93 


SO  TO  9999 

9938  NK=4019 

GO  TO  9999 

9939  NK=4077 

GO  TO  9999 

9940  NK=4201 

GO  TO  9999 

9941  NK=4310 

GO  TO  9999 

9945  NK=4341 

60  TO  9999 

9946  NK=4800 

GO  TO  9999 
9951  NK=4905 

9999  WRITE  ( 6,8888)NK* I , JtK»L»M,N 
PRINT  8888.NK, I,J,K,L,M,N 
CALL  OUMP 
10000  RETURN 

8888  FORMAT!  1H4-/26H1  P  H  3  ERROR  IN 
END 


s  PH3  2570 

PH3  2580 
PH3  2590 
PK3  2600 
PH3  2610 
PH3  2620 
PH3  2630 
PH3  2640 
PH3  2650 
PH3  2660 
PH3  2670 
PH3  2680 
PH3  2690 
PH3  2700 
PH3  2710 
PH3  2720 
PH3  2730 
PH3  2740 

STATEMENTI5 » 12X» 12H  INDICES  ARE6I7JPH3  2750 

?>H3  2760 


/-A 


$ IBFTC  PH4  LIST ,D£CK, REF 

SUBROUT  INF  PH4 


THE  ACTUAL  COORDINATES  USED  IN  THE  FIT 

SUBROUTINES  IS  TTX=TX-XC,TTY=TY-YC. 

TTX=TX-XC 

TTY=T  Y-YC 

LL=S8 

GO  TOU,2,3,4,5,6),LL 
L  CALL  FIT1 
GO  TO  7 

2  CALL  F1T2 
GO  TO  7 

3  CALL  FIT3 
GO  TO  7 

4  CALL  FIT4 
GO  TO  7 

5  CALL  FIT5 
GO  TO  7 

6  CALL  FIT6 

7  RETURN 
END 


PH4  0010 
PH4  0730 
PH4  0940 


PH4  0950 
PH4  0960 
PH4  0970 
PH4  0980 
PH4  0990 
PH4  1000 
PH4  1010 
PH4  1020 
PH4  1030 
PH4  1040 
PH4  1050 
PH4  1060 
PH4  1070 
PH4  1080 
PH4  1090 
PH4  1100 
PH4  1110 


SUBROUTINE  PH4  DETERMINES  WHICH  ONE  OF  THE 
SIX  POSSIBLE  FITS  TO  CALL  FOR,  TO  ASSIGN  A  DENSITY 
ENERGY,  AND  VELOCITIES  TO  PARTICLE  N.  THE  FIT  NUMBER 
IS  SPECIFIED  IN  COLUMNS  31*40  OF  THE  FIRST  CARD 
OF  EACH  PACKAGE! SEE  SECTION  2.1) 


OOOOO  *Ot_» 


te*  .«  ■ 


-<«/W  k 


iiBFTC  t-Iii  LiSl *UfcCK*REF 
SUBROUTINE  FIT1 


W$=SQRT  ITTX**2+TTY**2) 

DENSITY 

WSR-TA8RI I J +TABRI2 )*( TTY-TABRI  3H 
ENERGY 

WSI=TABI(  lJ+TABH 2  )*<  TTY-TABU  3i  I 
VELOCITIES 

WS=TABUVl I 1+TABUV ( 2 ) "  TTY-TABUVI3J ) 

WSU=0„0 

WSV=WS 

RETURN 

END 


FIT10010  \ 
F IT1Q730  j 
FIT10940  g 
FIT10950  | 
FIT 10960  | 
FIT 10970  | 
FIT10980  I 
FIT 10990  j 
FIT11000  f 
FIT11010  1 
FIT11020  | 
FIT1I030  1 
FITU040  I 
F IT11050  J 

■! 

tr 

'I 


FIT  2  LISTfDECKfREF  i 

SUBROUTINE  FIT2  FIT20010  ; 

FIT20730  ' 
F IT20940 5 

WS=SQRT(TTX**2+TTY**2i  FIT20950  ] 

C  DENSITY  FIT20960  J 

WSR=(  ITTX-TABRI 1)  I/TABR (  2)  >**2  +  U TTY-TABRI 3) )  /  FIT20970  < 

ITABRI4J 1**2  FIT209804 

C  ENERGY  FIT20990  \ 

W SI-TAB II 1 )+TABII2J:*TTX+TABI (3i*TTX**2  FIT21000 

1+TABI (4)*TTY+TABII 5)*TTY**2  FIT21010; 

C  VELOCITIES  FIT21020; 

WSV=TABUV( 1 ) +TABUVC  2 )*TTY  FIT21030  = 

WSU=TABUVC  3J+TA8UV(4l*TTY  FIT21040  : 

RETURN  FIT2 1050v 

END  FIT21060 « 


| 


96. 


$ I8FTC  FIT3  LIST, DECK, REF 

SUBROUTINE  FIT3  FIT30010 

C  F IT30730 

C  F IT30940 

C  THIS  FIT  FOR  SIN  KZ/KZ  ************ 

WS=SQRT(n X**2+TTY**2)  FIT30950 

C  OENSITY  F IT30960 


WSR=TA8R( 1 I+TABRC2 l*( TTY-TABR( 31 } 

NSA=TTY/TABI(2i 

WSB=WSA*PIDY*2. 

WSC-SIN(WSB) 

WSI=WSC/WSA*TA8I C 1 ) 

WS=TA8UV( 1 J+TABUVC  2  » *1 TTY-TABUVJ  3) ) 

WSU=0. 

NSV=WS 

MSI=HSI*TABI (3) 

C  TABIC  3)  US  SCALE  FACTOR  FOR  YIELD  NORMALLY  SET  TO  I. 
RETURN 
END 


$ IBFTC  FIT4  LIST, DECK, REF 

SUBROUTINE  FIT4 
RETURN 
END 


F IT40010 
F IT40020 
F  IT40030 


(IBFTC  FIT5  LIST, DECK, REF 
SUBROUTINE  FIT5 
RETURN 
END 


F  IT50010 
F IT50020 
F IT50030 


(IBFTC  FIT6  LIST, DECK, REF 
SUBROUTINE  FIT6 
RETURN 
END 


FIT600I0 

FIT60020 

FIT6Q030 


* 


$  IBFTC  OUTPUT  LIST «D£CK,REF 
SUBROUTINE  OUTPUT 
C  COMMON 

CLAM  ******  OUTPUT  ****** 

C 

C 

C  NOTE  (1  MATERIAL  ONLY  ((XII 
C 

C  PACKAGES  HAVE  BEEN  READ  IN  AND  PROCESSED 

C  COMPUTE  TOTAL  ENERGIES  AND  TOTAL  MASSES 

E=ETH 

WRITE  (6,8104) 

7001  N0=ND+1 

IF! E) 6000, 60 00* 6001 

6000  AMDM-0.0 
AMXM=0.0 
GO  TO  7016 

6001  AMDM=AM0M/2.0 
AMXM-AMXM/2 • 0 

7013  IFIAH0MI9901, 9901, 7014 

7014  IFIAMXMI9902, 9902, 7016 
7016  ETH*0.0 

TMOZ=Q.O 

TMXZ=0.0 

DO  7012  I~2,KMAX 

7005  IF ( AMX( I ) ) 9904,7012,7006 

7006  CONTINUE 

C  SUM  UP  TOTAL  <Xi  MASS  IN  GRID, 

TMXZ=AMXCI I+TMXZ 

C  CALCULATE  SPECIFIC  INTERNAL  ENERGY/CELL  CKI. 

AIXC I Is A IX ( I )/AMX( I ) 

7003  W3=AMX(I) 

C  CALCULATE  RADIAL  ANO  AXIAL  VELOCITIES  BY 
C  CONSERVING  BOTH  COMPONENTS  OF  MOMENTA. 

um*u<n/ws 
v(ii=v(  n/ws 

C  SUM  UP  TOTAL  ENERGY  IN  SYSTEM. 

ETH=ETH-#-(  CUt  l  M<*2*V(  1 )**2J/2.0«-AIX(  III ♦WS 
GO  TO  7012 
7012  CONTINUE 

TMZ=THDZ*TMXZ 

WRITE  < 6,8072 ) ETH, E ,TMOZf TMXZ , TMZ 

IWS*ND-1 

IWSA=NMAX-NO 

I«S8=NMAX-1 

WRITE  (6,8073) ( IMS, IWSA, IWS8) 

C  PUT  INPUT  ON  BINARY  TAPE  7 

7113  REWIND  N7 
C 

C  WRITE  TAPE  FOR  OIL  CODE. 


S 


07.  a 

I 

0UTP0010  I 
INPU0720  1 
OUTP0020  1 
OUTP0030  1 
0UTP0750  1 
OUTP0960  | 
0UTP0970  1 
0UTP0980  I 
0UTP0990  I 
0UTP1000  } 
0UTP1010  I 
OUTP1020  I 
OUTP1030  I 
0UTP1040  I 
OUTP1050  I 
0UTP1060  I 
OUTP1070  ' 

ouTPioso  ; 

OUTP1090  £ 

0UTP1100 

0UTP1110  ’■ 

0UTP1120 

0UTP1130 

0UTP1140 

0UTP1150 

0UTP1160 

0UTP1170 

0UTP1180 

0UTP1190 


OUTP1200 

0UTP1210 

0UTP1220 

0UTP1230 

0UTP1240 

0UTP1250 

0UTP1260 

0UTP1270 

0UTP1280 

0UTP1290 

DUTP1300 

0UTP1310 

0UTP1320 

OUTP1330 


o  o 


OA 


IF4PR0B 47162 *7162, 7163 

0UTP1350 

0UTP1360 

7163 

N3=0 

0UTP1370 

7162 

WS=555.0 

0UTP1380 

WRITE  <  N7) WS  »C YCLE  »  N3 

0UTP1390 

WRITE  IN7MZ(  I)  ,I=1»MZ) 

0UTP1400 

7131 

WRITE  <N7MU<K)  ,ViK)  ,AMX(K)  ,AIX(K>  *AIX(K)  ,K=1*KMAXA) 

0UTP1410 

GO  TO  7140 

0UTP1420 

7140 

CONTINUE 

0UTP1430 

WRITE  (N74X(0)«(XCK)«TAU(K) ,K=1 » IMAX) 

0UTP1440 

WRITE  <N74(YIK),K=0,JMAX) 

0UTP1450 

WS-666.0 

0UTP1460 

WRITE  PARTICLES  ON  DUMP  TAPE  FOR  PIC  RUN. 

IFI PROS  17150 *7150* 7161 

0UTP1470 

0UTP1480 

7150 

DO  7160  1*1, N3 

OUTP1490 

READ  (N2)(AMlN)«XLiN)rYL(N)*IWlIN),IW2(N4«N=2,NPRI4 

0UTP1500 

WRITE  IN7)  <AM(N),XL(N),YUN),IW1(N)  ,IW2(N)  »N=2,NPRI) 

0U7P1510 

7160 

CONTINUE 

0UTP1520 

7161 

WRITE  <N7)WS,WS,WS 

QUTP1530 

REWIND  N7 

0UTP1540 

WRITE  I 6*8120) T,NC 

0UTP1550 

IWS=INAX*JMAX+1 

OUTP1560 

CALL  SL1TE  <0) 

OUTP1570 

00  7517  1=1, IMAX 

OUTP1580 

CALL  SLITE  (1) 

0UTP1590 

J=JMAXA 

OUTP1600 

K=IWS*I 

OUTP1610 

00  7517  JP=1, JMAX 

0UTP1620 

J=J-1 

0UTP1630 

K=K-IMAX 

OUTP1640 

7170 

IFCAMXCK4 49905,7517, 7175 

0UTP1650 

7175 

CALL  SLITETI l,K000FX 1 

0UTP1660 

GO  TOC 7180, 7185), KOOOFX 

OUTP1670 

7180 

PRINT  OUT  CELL  QUANTITIES. 

WRITE  16,8080)1, XU), DXU) 

0UTP1680 

71850WRI TE  (  6, 8084) J, Y( J I ,DY( J) ,U(K) ,V(Ki , 

4 K )  ,AIX (K  4QUTP1690 

J 

UV(K),AMX(K) 

0UTP1700 

7517 

CONTINUE 

OUTP1710 

IFCQOOOFL 1 7520, 7520,7616 

0UTP1720 

7616 

REWIND  N2 

0UTP1730 

GO  TO  7520 

OUTP1820 

ERROR 

0UTP1830 

9901 

NK=7013 

OUTP1840 

GO  TO  9999 

OUTP1850 

9902 

NK=7014 

0UTP1860 

GO  TO  9999 

0UTP1870 

9904 

NK=7005 

0UTP1880 

GO  TO  9999 

OUTP1890 

9905 

NX=7170 

0UTP1900 

9999  WRITE  !6,8888)NK,I,J,K,L,M,N 
PRINT  8888,NK,I,J,K,L,M»N 
CALL  OUMP 
7520  RETURN 

:  FORMATS 


0UTP1910 
0UTP1920 
0UTP1930  J 
0UTP1940; 
0UTP1950! 


80720PORMATUH  ////6H  THE  =1P£16. 9, 7X, 3HE  =E16.9///5H  M.  =E11„5,5X»4HMX0UTP1960 
1  =E11.5,7X,7HM.+MX  =E11.5)  0UTP1970 

8073  FORMAT! IHO/I7HOPARTICLES  - 112, 4H  00TI14,2H  XII4,6H  TOTAL)  OUTP1980 

8080QFORMAT! 1HO///3HOI=12,IOX,2HX=1PE13.7,10X,3HDX=E13„T/3HO  J10X.1HY130UTP1990 
1X,2H0Y12X*IHU13X, 1HV12X,  3HAI0HX,  3HAIX11X,  3HAM011 X,  3HAMX)  0UTP2000 

8084  FORMAT! 13, 3X, 1P8E14.7)  OUTP2010 

8104  FORMAT! IH  /3IH  THERE  ARE  NO  MORE  PACKAGES - )  0UTP2060 

8120  FORMAT! 1H  ///18H  TAPE  OUMP  AT  TIMEF10.1 ,7X,5HCYCL£I4)  0UTP2070 

8888  FORMAT! 1H+/26H10UTPUT  ERROR  IN  STATEMENTI5 s 12X, 12H  INDICES  ARE6I7I0UTP2080 
END  0UTP2090 


OOOO  ooooooooo 


r.S.  FORTRAN  IV  LISTINGS  OF  PIT, 


/ 


100. 


***  NOTEt THE  FOLLOWING  SET  OF  DIMENSIONS, COMMON 
ANO  EQUIVALENCE  CARDS  ARE  TO  SE  USED  FOR  ALL 


SUBROUTINES 

WITH  THE  EXCEPTION 

OF  MAIN  AND  CARDS. 

U 

1  M 

£  N 

SION 

PH2 

0020 

PH2 

0030 

DIMENSION 

AMU  30)  , 

XL( 130), 

YLI130), 

PH2 

0040 

1U( 3500  ) , V I  3500 1 

,AMX(3500),AIX(3500), 

PH2 

0050 

2PI3500) , 

PH2 

0060 

3  I Wl I 1 30 ) , 

IW2( 130)  , 

PH2 

0070 

4DXI52) , 

X  ( 53  ) , 

XX(54) , 

DYUOO),  Y(IOO), 

YY(101), 

PH2 

0080 

5TABI 15) , 

AMKI 15), 

PK(  15 )  , 

QK( 15 ) ♦  Z ( 1 50 ) , 

12(150), 

PH2 

0090 

6TAUI52), 

PL( 200 )  , 

PR ( 200 ) , 

UL( 200 ) ,  URI200) 

t 

PH2 

0100 

7FLEFTI 100), 

YAMCI 100), 

SIGC( 100 

),  GAMCUOO) 

PH2 

0110 

COMMON 

Z 

,XX 

, UR  , PR  ,YY 

PH2 

0120 

COMMON 

AID 

,  Al  X 

, AM  , AMD  , AMX 

,  AREA 

PH2 

0130 

COMMON 

BIG 

, BOUNCE 

»DDXN  ,  DDVK  ,DKE 

,  DVK 

PH2 

01M) 

COMMON 

DX 

»DY 

,E  »FD  *FS 

FX 

PH2 

0150 

COMMON 

OUT 

,P 

,  PABOVE  ,  PBLO  ,  PIDTS 

, PPA60V 

PH2 

0160 

COMMON 

PRR 

,  PUL 

, QDT  ,RC  ,REZ 

,RHQ 

PH2 

0170 

COMMON 

RL,RR, 

SIG,Q000FL, SWITCH  , TABLM 

PH2 

0180 

COMMON 

TAU 

, TAUDTS 

,TAUOTX  ,U  ,UK 

,URR 

PH2 

0190 

COMMON 

UT 

,UU 

,UUU  ,UT£F  , UVMAX 

,v 

PH2 

0200 

COMMON 

VABOVE 

,  VBLO 

, VEL  , VK  ,VT 

»  VTEF 

PH2 

0210 

COMMON 

VV 

, VVA80V 

, V VBLO  , W2  ,W3 

,WPS 

PH2 

0220 

COMMON 

MS 

,  WSA 

tWSB  ,WSC  , XL 

,  XLF 

PH2 

0230 

COMMON 

XN 

,  XR 

,YL  , YLW  , YN 

» YU 

PH2 

0240 

COMMON 

ZMAX 

»I 

,11  ,  IN  »  I R 

•  IWS 

PH2 

0250 

COMMON 

IWSA 

,  IWSB 

,IWSC  ,IW1  ,J 

,  JN 

PH2 

0260 

COMMON 

JP 

,  JR 

, K  , KN  ,KP 

,KR 

PH2 

0270 

COMMON 

KRM 

»L 

,M  ,  MA  ,MB 

,MC 

PH2 

0280 

COMMON 

MD 

,ME 

,  MZ  »N  ,NK 

, NKMAX 

PH2 

0290 

COMMON 

NK1 

♦  NO 

, NR  ,  IW2 

PH2 

0300 

PH2 

0390 

PH2 

0400 

E 

Q  U 

I  V 

A  L  E  N  C 

E 

PH2 

0410 

PH2 

0420 

QEQU1 VALENCE 

(Z,  IZ 

, PROS )  , 

(Z(2) , CYCLE), 

(2(3), OT), 

PH2 

0430 

1(2(4), PRINTS! , 

( Z ( 5) 

,PRINTL) 

,  ( Z ( 6 ) »DUMPT7 ) , 

(2(7), CSTOP ) , 

PH2 

0440 

2(2(8),?! DY) 

f 

(2(9) 

, TMZ ) , 

( Z ( 10  ) , GAM) , 

(2(11) »GAMD ) , 

PH2 

0450 

3( Z { 1 2 ) » GAMX  )  , 

(2(13), ETH), 

(2(14) »FFA) , 

(2(15) »FFB) , 

PH2 

0460 

4(Z( 16) »TMDZ ) , 

( Z ( 17) , TMXZ ) i 

(2(18) ,XMAX) , 

(2(19) ,TXMAX) , 

PH2 

0470 

5(Z(20), TYMAX ) , 

(Z( 21) ,AMDM) , 

(Z(22),AMXM), 

( Z(  23) ,DNN), 

PH  2 

0480 

6(2(24), DMIN), 

(2(25), FEF), 

( Z ( 26 ) ,DTNA) , 

( Z( 27) ,CVIS), 

PH2 

0490 

7(2(28), NPR) 

9 

(2(29), NPRI), 

(ZOO)  , NC)  , 

(2(31) ,NPC), 

PH2 

0500 

8(Z(32) ,NRC ) 

9 

(2(33), IMAX) , 

( 2 ( 34  > , I HAXA ) , 

(  Z ( 35 ) , JMAX ) , 

PH2 

0510 

9( Z ( 36 ) , JMAXA ) , 

(2(37), KMAX) , 

(2(38) ,KMAXA ) , 

( Z ( 39  > ,NMAX ) 

PH2 

0520 

101 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


0EQU1 VALENCE 
1(2(43,  »NOu )  , 
2(Z(47)»I1)« 

3(Z( 51 ) ,N1 ) , 

4(Z( 55) »N5) » 

5(Z( 59) »N9) , 

6(Z( 63) »TRAO) * 
7(Z(67), RADER), 
8(ZC  71 ) tREZFCT) • 
9(2(75) , TOZONE) » 
OEQUI VALENCE 
1 (Z ( 82 ) » CABLNI « 
2(ZC  86) , WSGD) , 

3( Z( 9Q) ,S1) * 
4(Z(94),S5), 

5(Z(  98) »S9) * 


11(40), NO), 
(Z(A4?,N0PR) , 

S  Z(48) , 12) , 

(  Z  (  5  2 )  ,  N2 )  , 

(Z( 56) ,N6) , 
(2(60)  ,N10)  , 

(  Z ( 64 ) , XNRG ) , 

(  Z ( 68 ) , RAOET  )  , 
( Z(72 ) ,RSTGP ) , 
III  76) ,ECK)  , 
(Z(79), X2I , 

(Z( 83), VISC)  , 
(2(87) ,W5GX) , 
(Z(91),S2) , 

( Z ( 95) *  S6 )  , 
(2(99), S10) 


( Z (41 ) ,KDT ) , 

( Z ( 45 ) , N I  MAX ) , 
(Z(49),I3), 
(Z(53),N3)  , 
(Z(57),N7)  , 
(2(61), Nil), 
(2(65), SN) , 

(Z( 69) , RADEB) , 
(Z(73), SHELL), 
(2(77) ,SBOUNO ) , 
(Z(80),Y1), 
(Z(84),T), 

( Z (88 ) ,GMADR) , 

( Z ( 92 ) ,S3 )  , 
(Z(96),S7), 


OEQUI VALENCE  (  XX( 2 ) , X( 1 )  )  ,  (UR, UL, FLEET)  , 

1(PR(100),SIGC),(PR,PL,GAMC) , JUR,TAB) , 
2(UR(16),AMK),  ( UR( 31 ) , PK ) ,  (UR(46),QK), 

•  * 


(2(42) ,IXMAX) ,  PH2  0530 
( Z ( 46) »NJMAX ) ,  PH2  0540 
(Z(50),I4),  PH2  0550 
(2(54) ,N4) ,  PH2  0560 
( Z( 58) ,N8),  PH2  0570 
( Z ( 62 ) »NRM ) ,  PH2  0580 
( 2(66) ,OXN) ,  PH2  0590 
(2(70) ,DTRAO),  PH2  0600 
(Z(74) ,8B0UND) ,PH2  0610 
(2(78?, XI)  ?H2  0620 

(2(81) ,Y2) ,  PH2  0630 
( 2(35) ,GMAX) ,  PH2  0640 
(2(89) »GMAXR ) ,  PH2  0650 
(2(93) ,S4),  PH2  0660 
( Z( 97) ,S8) ,  PH2  0670 
PH2  0680 
PH2  0690 
(UR( iOO),YAMC)»  PH2  0700 
PH2  0710 
( YY ( 2 ) ,Y( 1) )  PH2  0720 
PH2  0730 
PH2  0740 


NOTE,  THERE  ARE  2  SPECIAL  SU8R0UTI NES( FORTRAN  4)  USED 
IN  THE  OIL  CODE,  SUBROUTINE  SLITE  SERVES  THE  SAME  FUNCTION 
AS  TURNING  ON  SENSE  LIGHTS,  AND  SLITET  SERVES  THE 
FUNCTION  OF  TESTING  THE  SENSE  LIGHTS. 


NOTE,  IF  AN  ERRORI SEE  THE  END  OF  THE  SUBROUTINES)  OCCURS,  THE 
SUBROUTINE  WILL  CALL  FOR  A  DUMP.  BY  CHECKING  THE 
VAU^S  OF  NR  AND  NK  ,  ONE  CAN  READILY  IDENTIFY  THE 
STATEMENT  NUMBER  AND  THE  SUBROUTINE  WHERE  THE  ERROR  OCCURRED. 


C  NK  WILL  CONTAIN  THE  STSTENENT  NUMBER,  AND  NR  IS 

C  AN  10ENTIFATIGN  FOR  THE  SUBROUTINE  AS  FOLLOWS, 


c 

NR=  1 

INPUT 

c 

NR=2 

CDT 

c 

NR=3 

PHi 

c 

NR=4 

PH  2 

c 

NR=6 

EDIT 

oo  o  o  o  r>  o  o  o  o  non  r>  o  o  o  o  oo  oooonnno 
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$IBFTC  MAIM  LIST »0ECK»REF 
CMAIN 

******  Note  I  MATERIAL  ONLY  <XJ)  ************ 

INPUT  READS  OIL  DUMP  TAPE  OR 
WILL  CALL  SUBROUTINE  S£I*UP  WHICH 
WILL  MAKE  A  DUMP  TAPE  FOR  CERTAIN  TYPES  OF  PROBLEM 
(SEE  SECTION  ON  SET«UP* 

ALSO  CALCULATES  DX  AND  OY  AND  EQUATION  OF  STATE  DATA 
CALL  INPUT 

COT  ROUTINE  CALCULATES  OTIHYORO  TIME  STEP) 

AND  PRESSURES,  ADVANCE  CYCLE  NO,  ETC  . 

10  CALL  CDT 

IN  EDIT,  DETERMINE  WHETHER  TO  EXECUTE  A  LONG 
PRINT,  A  SHORT  PRINT,  A  TAPE  DUMP,  ETC.  AND 
CALCULATE  TOTAL  ENERGY  IN  SYSTEMICOMPARE 
WITH  ETHI  TOTAL  MASS,  INTEGRATE  TOTAL 
COMPONENTS  OF  MOMENTA. 

CALL  EDIT 

CALL  SLITETClsKOOOFX* 

SENSE  LITE  1  SIGNIFIES  THIS 
IS  THE  LAST  CYCLE  OF  THIS  RUN 
LITE  TURNED  ON  IN  THE  EDIT  ROUTINE  ****** 

GO  TO  C  30, 20  5, KQOOFX 

PHI,  INTEGRATE  THE  MOMENTA  EQS.  INTEGRATE 
ENERGY  EQUATION! ONLY  CHANGES  DUE  TO  WORK 
TERMS  I o  NO  MOVEMENT  OF  HASS  HERE 
20  CALL  PHI 

TRANSPORT  MASS  ACROSS  BOUNDARIES  I  SOLVE 
MASS  TRANSPORT  Eti. )  TRANSPORT  TERMS  IN 
THE  MOMENTA  AND  ENERGY  EQS.  LEFT  OUT  OF 
PHI ,  HERE  APROXIMATED  BY  MASS  MOVEMENT.  CONSERVE 
MASS,  MOMENTA  AND  TOTAL  ENERGY. 

CalL  PH2 


GO  TO  10 
30  CALL  EXIT 
END 


MAINOGiO 

MAIN0020 

MAINQ030 

MAIN0050 


MAINQ060 


KA1N007G 


MAIN0060 

MAIN0090 


MAIN0100 


MAIN0110 


NAIN0120 
MAI NO 130 
MAI NO 140 
MAI NO 150 
MASNG160 
MAIN0170 


r>  o  no  on  o  on  no  non  ooonoo  r>  no  ooo 


SlBf-TC  INPUT  L  1ST , DECK, REF 
SUBROUTINE  INPUT 


TURN  ON  SENSE  LITE  3. 

CALL  SLITE  13) 

READ  HEADER  CARD  (COLUMNS  2-72) . 

READ  (5,8004) IWS 
WRITE  (6,8004 ) I WS 
CALL  DATA. 

6  CALL  CARDS 

IE  PM  3)  =  OR  GREATER  THAN  ZERO,  CALL  ROUTINE 
SET-UP,  OTHERWISE,  81  NARY  OIL  TAPE  HAS  BEEN  MADE. 
READ  IN  DATA  FROM  OIL  OUMP  TAPE,  OR 
GENERATE  A  DUMP  TAPE  FOR  GIL,  AND 
CALCULATE  DX  AND  DY  FROM  THE  X  AND 
Y  VALUES  FROM  TAPE. 

IF(  PK(  3 ) ) 8 68 7, 8888, 8888 
8888  CALL  CARDS 
CALL  SETUP 
8887  CONTINUE 

READ  TAPE 

GQ  READ  BINARY  IaPE. 

GO  TO  1000 

READ  IN  REMAINING  INPUT  CARDS 

10  CONTINUE 
CALL  CARDS 
GO  TO  2000 

SET  THE  PRESSURES  TO  ZERO. 

40  DO  45  K=i , KMAXA 
45  P(K )=3.0 

INTEGRATE  BACKWARDS  ON  CYCLE,  TIME  AND  NO.  OF 
CYCLES  BETWEEN  ENERGY  CHECK,  SINCE  THESE 
ARE  ADVANCED  IN  COT. 

T=T-DTNA 
N€=NC-1 
CYCLE-NC 
NPC=NPC-1 
UVMAX=0. 0 

CALCULATE  THE  DX*S,  SINCE  THESE  ARE  NOT  ON 
TAPE. 

DO  50  I=>,!MAX 
50  DX( I)=X(I)-Xl 1-1) 

CALCULATE  THE  DYr  S ,  SINCE  THESE  ARE  NOT  ON 
TAPE. 

DO  55  J=1 , JMAX 


INPU0010  | 
INPUQ760 
INPU0900 

INPU0980 
INPU0990 

INPUIOOO 
INPUI010  \ 

i 

INPU1Q20  ; 


INPU1030 

INPU1040 

INPU1050 

INPU1060 

INPU1070 

INPUI080 

INPU1090 
INPU1100 
INPUillO 
INPU11 20 
INPU1130 
INPU1140 
1NPU1150 

INPU1160 

INPU1170 


INPUI180 

INPU1I90 

INPU1200 

INPU1210 

INPU1220 


INPUI230 
I NPU1240 


INPU1250 


noon  on  o  o  o  o  r»  r>  o 
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55  0Y8 J )=Y( J )-Y ( J- 1 ) 

J=MZ-0 

C  PRINT  Z  BLOCK « 

62  00  80  I=l* J,8 
K=I+7 

DO  65  J=  I ,  K 
IF(Z(J))70, 65*70 
65  CONTINUE 
GO  TO  80 
70  K*I*7 

WRITE  <6,8111II,<2tU,L=I,K) 
80  CONTINUE 
GO  TO  10000 


READ  BINARY  TAPE. 

1000  MZ=150 
IW$=0 

1003  REWIND  7 

1004  READI7)PRU>9PR<2)  ,N3 
NR=N3+5 

1006  IFtPRi  U-555. 0)1010, 1016,  1010 

1010  IWS* IkS+1 

1011  I F ( MOO I IWS, 3)1 9902, 9902, 1003 
1016  IFIPR(2)il010, 1018, 1018 

CHECK  HERE  FOR  THE  CORRECT  CYCLE  NUMBER. 

1018  IF(PK(2)-PR( 2) 11023,1023,1020 
SKIP  OVER,  LOOK  AT  NEXT  CYCLE. 

1020  DO  1022  L=2 vNR 

1022  REA0I7) 

GO  TO  1004 

1023  READ(7)(Z(I),I-1,MZ) 

CHECK  FOR  THE  CORRECT  PROBLEM  NO. 

IF(ABS(PROB-PKm  )-. 01)  1024,1024,9901 

1024  READ!  7  MU(  II, V(  I),  AMXI  I),AIX(I),P(  I  )  ,  I  =  1 1 KMAXA) 

REA0(7 )X(0) »(X(I),TAU(l),I=l,I MAX) 

READ! 7) ( V( I ) « 1=0, JMAX ) 

NOTE,  INITIALIZE  N1  TO  2,AN0  N2  TO  3 

NOTEvNl  AND  N2  ARE  ONLY  USED  FOR  BOOK-KEEPING  ******** 

Nl=2 

N2=3 

NOTE,  IF  PROBLEM  NO.  IS  NEGATIVE,  THIS  IS 
A  PIG  TRANSPORT,  CHECK  YOUR  PH2  ROUTINE, 

ANO  RE AO  THE  PARTICLES  FROM  TAPE  ONTO 
SCRATCH  TAPE  Nl. 

IFsPROB) 1,1, 1034 
1  REWINO  2 
REWIND  3 
DO  1025  !=1,N3 


INPU1260 


INPU1290 

INPU1300 

INPU1310 

INPU1320 

INPU1330 

INPU1340 

INPU1350 

INPUI360 

INPU1370 

INPJ1380 

INPU1390 

INPU14Q0 

INPU1410 

INPU1420 


INPU1450 

INPU1460 

INPU1470 

INPU1480 

INPU1490 

INPU1500 

INPU1510 

INPU1530 


INPU1550 


INPU1590 


INPU1620 


105. 


1025 

1034 

1036 

1036 

1040 

C**** 

C 

c 

c 

c 

2000 

2005 

2010 

2012 

2015 

2020 


2025 

2030 

C*4** 

0 

C 

c 

9901 


REAOI7  M  AMJ N ) »  XL (N ) , YL ( N  > , I WL ( N) » I W2 (N) ,N=2»N4) 
WRIT£(2HAMIN),XL(N},YLIN),!W1(N)«IW2(N),N=2,N4) 

CONTINUE 

READ! 7) PR <  J. )  »PRC 2)  »PR{  3) 

REWIND  2 

IFIPRI l)-555.0)9904r1040,1038 
IF (PR( 2 1-666.0) 9905* 1040. 9905 
GO  TO  10 

END  OF  READ  TAPE  ****♦**********************#*#******£************ 


CALCULATE  MAX.  GAMMA  AND  GAMMA/ {GAMMA-1 . i . 


INPU1650 


INPU1680 

INPU1690 

INPU1700 

INPU1710 

INPU1720 

INPU1730 


IF(WSGX) 9906,2010, 2005 
GAMX=i .0/( HSGX- 1.0 ) 

WSGX=( GAMX+l.OI /GAMX 
GHAXR=GAMX*WSGX 
I FCHSGO) 9907, 2020, 2015 
GAKO=1.0/( WSGD-l.O) 

WSGD=( GAMD+l.O l/GAMD 

GMAOR=GAMO*WSGD 

GMAX=WSGD 

IFC WSGD-WSGX ) 2025, 2030,2030 
GMAX-MSGX 
GO  TO  40 
END  OF  R 


ERROR 


NK=i023 
GO  TO  9999 
9902  NK=1Q1 1 

GO  TO  9999 

9904  NK=1036 
GO  TO  9999 

9905  NK=1G38 

GO  TO  9999 

9906  NK=2000 

60  TO  9999 

9907  NK=2012 
9999  NR=l 

CALL  DUMP 
C 

10000 
C 
C 

8000 


RETURN 


FORMATS 
FORMAT (7ElGo3,I2) 
80040FORMAT ( 1 1, 71 H 
1 

8111  FORMAT ( 14,8014) 
END 


INPU1740 
INPU1750 
INPU1760 
INPU1770 
INPU1780 
INPU1790 
INPU1800 
INPU1810 
INPUI820 
ZNPU1830 
INPU1840 
INPU1850 
5NPU1860 

E  S  ***************************************************** INPU1&7Q 

INPU1880 
INPui890 
IMPU1900 
INPU1910 
INPU1920 
INPU1930 
INPU1940. 
INPU1950 
INPU1960 
INPU1970 
INPU1980 
INPU1990 
1NPU2000 
INPU201Q 
INPU202Q 
INPU2030 
INPU2040 
INPU2050 
INPU2060 
INPU2070 
INPU2080 
INPU2090 
INPU2100 
INPU2110 


noon 
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$1 8FTC  CARDS  LIST »D£CK®REF 
SUBROUTINE  CAROS 

DIMENSION  TABS.  El  II  ,CARD!7)  *  LAB  LEI  II 
COMMON  TABLE 

A  2  IN  COLUMN  1,  ROUTINE  WILL  FIX  THE 
FLOATING  PT.  NO. 

A  1  IN  COLUMN  I®  MEANS  THIS  IS  LAST  CARD  TO 
READ  IN. 

EQUI  VALENCE  I  TABLE  ID  >  LABLE  ID  I 
WRITE  (6® 10) 

1  READ  ! 5, 11 ) !END,LGC, NUMWPC, (CARD! II® 1=1 tNUHWPC ) 
WRITE  16*12) I END, LGC, NUMWPC *! CARD! D  » 1  =  1 ® NUMWPC) 
00  4  1=1, NUMWPC 
J=L0C«-I*1 
IF! IEN0-2)2,5,2 

5  LABLEI J)=IFIX!CARD! I) ) 

GO  TO  4 

2  TABLE!  J)=CARO!I) 

4  CONTINUE 

IF! IEND-li  1,3,1 

3  RETURN 

C  FORNATS 

10  FORMAT ! 20H1  OIL  INPUT  CARDS///) 

11  FORMAT! II, I5,Il,0P7E9.4) 

12  FORMAT ! 1H  14,17,13, 1PTE14.6) 

ENO 


CAR00010 

CARD0020 

CAR00030 


CAR00050 
CAR00070 
CAR00080 
CARD0090 
CAR00100 
CAR00110 
CAR00120 
CAR 001 30 
CAR00140 
CAR00150 
CARGO 160 
CAR00170 
CAR00180 
CAR00190 

CARD0210 
CAR00220 
CAR 00230 


o  o  o  o 
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SIBFTC  SETUP  L  1ST, DECK, REF 
SUBROUTINE  SETUP 
WILL  ONLY  GENERATE  (If  MATERIAL. 

PACKAGES  MUST  BE  RECTANGLES. 

ASSUMPTION  OF  =  DX  AND  =  DY 
LOAO  PK( 4f  =1 • 

M=PK( 4  f 

C  LOAO  PK( 5)=R IGHT  BOUNDARY  OF  PELLET ( I )  • 
MA=PK( 5 ) 

C  LOAO  PK( 61 =BOTTOM( J )  +  1  OF  PELLET. 

MB=PK( 6 ) 

C  LOAO  PK{ 7) =TQP ( J  )  OF  PELLET. 

MC=PK( 7 ) 

C  LOAD  PK{ 8 ) =1 • 

MO=PK( 8 ) 

C  LOAD  PK(9f=RIGHTUI  BOUNDARY  OF  TARGET. 

ME=PK(9J 

C  LOAD  PK(10)  =  B0TT0M(J)M  OF  TARGET. 

MZ-PK( 10) 

C  LOAO  PK(11 )=TOP(JfOF  TARGET. 

N=PK( 1 1 ) 

C  LOAO  INITIAL  DENSITY  INTO  Z(lll). 

RH0=Z( 111) 

C  LOAD  INITIAL  PELLET  VELOCITY  INTO  Z(112). 
VTEF=Z( 1121 
KMAX=IMAX* JMAX+1 
KMAXA-XMAX+1 
JMAXA= JMAX+1 
IMAXA= IMAX+1 

C  CLEAR  ALL  CELL  ARRAYS. 

00  1  K=1,KMAX 
U( K ) =0.0 
V(K)=0.0 
P(K)=0.0 
AMX(K)=Q.O 
AIX(K)=0.0 
1  CONTINUE 
DX( 1 )=QXi 1 ) 

x(i)=oxm 
WS=X(1)**2 
PIDY=3. 1415927 
TAU( i)=WS*PIDY 
C  CALCULATE  OX,X,TAU 
DO  10  1=2, IMAX 
x(  n=x(i-i)+DX(i) 

DX( I )=DX( 1  ) 

WSA=X( I ) **2 
TAUm=PIDY*(WSA~WSI 
WS=WSA 
10  CONTINUE 


SETU0010 


SETU0980 

SETU0990 

SETU1000 

SETU1010 

SETU1020 

SETU1030 

SETU1040 

SETU1050 

SETU1060 

SETU1070 

SETU1080 

SETU1090 

SETU1100 

SETU11J0 

SETU1120 

SETU1130 

SETU1140 

SETU1150 

SETU1160 

SETU1170 

SETU1180 

SETU1190 

S6TU1200 

SETU1210 

SETU1220 

SETU1230 

SETU1240 

SETU1250 

SETU1260 

SETU1270 

SETU1280 

SETU1290 

SETU1300 

SETU1310 


iGo 


C  CALCULATE  OY  AND  Y. 

00  20  J«2»JHAX 
Y(JI=Y(J-li«DY(l) 

DY( J  J=DYI 1 ) 

20  CONTINUE 
ETH=0.0 
DO  30  I=H,NA 
Ka I K8~ 1 )  £  I HAX+ I ♦ 1 

C  CALCULATE  NASS*  AND  VELOCITY  OF  PELLET* 

00  40  J=MS,MC 
ANX!Ki*RHG*DYl JJ*TAU< I) 

V(K)*VTEF 

C  CALCULATE  TOTAL  ENERGY  I ETH. ) 

ETH=£TH+AMXCK»*«VIKl*42i/2c0 
40  K*K-MHAX 
30  CONTINUE 

C  CALCULATE  MASS  OF  TARGET. 

00  50  I=MD»ME 

K»IHZ-U*IMAX^I  +  l 

00  60  J=MZ«N 

ANXI K ) =RHO*OY( J  >*TAU( I ) 

60  K=K+IMAX 
50  CONTINUE 
IHAX=IMAX 
JNAX-JNAX 
SHELL=2.0 
CYCLE-0.0 
OT— 0 oO 
NHAX=0 
Nl-2 
N2=3 
N3=0 
N4*I27 
XNAX=Xt I MAX} 

TXMAX=XMAX*2®0 
YHAX=YC JNAX) 

TYMAX=YMAX*2.0 
REMIND  7 
M§=555.0 

C  WRITE  OUTPUT  FOR  OIL  ON  TAPE. 

WRITE  C  7)HS»CYCIE,N3 
WRITE  (  7i  {Zm,I=l,150> 

WRITE  $  7)(U(n*V«U(ANXin*AIXII)*Pf  I).  l=l,KHAXA) 
WRITE  (  7)X(QI,IX(  DfTAUCIlt  I=1,IHAX) 

WRITE  I  7H  Y<  II, 1  =  0, UMAX) 

WS=666«0 

WRITE  (  7) WStWSyWS 
REWIND  7 
RETURN 
END 


SETUI320 

SETU1330 

SETUI340 

SETUI350 

SETUI360 

SETUI370 

SETUI380 

SETUI390 

SETU1400 

SETU1410 

SETU1420 

SETU1430 

S6TU1440 

SETU1450 

SETU1460 
SETUI470 
SETUI480 
SETUI490 
SETU1500 
SETU1510 
SETUI520 
SETU1530 
SETH I 540 
SETU1550 
SETUI560 
SETU1570 
SETU1580 
SETU1590 
SETUI600 
SETUi.610 
SETUW20 
SETUU30 
SETU16A0 
SETU1650 

SETUI670 


SETU1730 


SETU1760 


nnnnn  on  o  no  ooooooooo 
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M8FTC  COT  LIST ,DECK»REF 
SUBROUTINE  COT 


SSaS33SSSSSSSS33=3S2S5SSS:Sn!S  =  SS^SSSSSS3SSSS 


CHECK  COURANT  CONDITION  ANO  PARTICLE 
VELOCITY. 

RECORD  I  ANO  J  OF  ZONE  WHERE  DT  IS  BEING 
CONTROLLED. 

3000  VEL*0.0 
3005  DO  3050  1*1,11 
3010  K*I+1 
3015  DO  3050  J=1,I2 
1*1 

3020  IF! AMXCK) 1 9901,3050,3025 

CALCULATE  PRESSURES  FROM  EQUATION  OF  STATE! ESI. 
3025  CALL  ES 

3030  IF(ABS(P!K) I-1.0E-20 13035, 3035,3040 
3035  P(K)=0.0 

3040  IF t WSGX-VE L ) 3050*3050*  3045 
3045  VEL*WSGX 
3050  K*K*IHAX 
3055  KDT*1 

UVNAX*-i.O 
3070  DO  3255  I- It  II 
3075  K»I+l 
3095  DO  3255  J=*l,l2 
3100  KP*K*INAX 

IF! AMX!K) ) 9901 *3255*4 

IF  RH01K)  IS  LESS  THAN  Z(138),  CELL  K 

WILL  BE  BYPASSED  FOR  STABILITY  CHECK. 

4  IFIAHX!KI/!TAU!  U*DY(J I  i-Z<  138)  13255, 3255, 3115 
3115  SIG*OX!I> 

3120  IF  !0Y!JI-SIG)3125,3130,3130 
3125  SIG*OY(J» 

C*SPEEO  OF  SOUND  FOR  POLYTROPIC  GAS  AS 
i  THE  SQ.  ROOT  OF  !GANMA*P/RHO) . 

HERE  CALCULATE  THE  SPEED  OF  SOUNO  FOR 
THE  EQUATION  OF  STATE 
AS  THE  SQ.  ROOT  OF  OP/DRHO. 

3130  JF<ZC 1481)4000, 4000, ^OOl 

4000  WS«SQRT!GNAX#TAUI I )*0Y! J }*ABS( P(K) ) / { AMX!K) ) ) 

GO  TC  3205 

4001  HSA«ABS(P!K))‘U«,E*4 
WS»m48)«-Z!l49)*!WSA**Z!15QI! 


COT  0010 
COT  0020 
COT  0990 
COT  1000 
CDT  1010 
CDT  1020 


COT  1030? 
COT  1040 | 
COT  1050] 
COT  1060  1 
COT  1070] 
COT  1080  I 
COT  1090  I 
COT  1100  f 
| 

COT  moj 
COT  1120 
COT  1130 t 
CUT  1140  i 
COT  1150 
COT  1160 
COT  1170 
COT  1180: 
COT  1190 
CDT  1200 
CDT  1210 
COT  1220 
COT  1230 
COT  1240 


COT  1250 
COT  1260 
COT  1270 
COT  12F0 


COT  1290 
COT  1300 
CDT  1310 
COT  1320 
COT  1330 


.110 


3205 

3210 

3215 


3220 


C 

2 

3225 

3230 


I  3235 

|  3240 

f  3245 


3250 

3255 


3260 

90 


if  3265 
|  3270 
;t  3276 
|  3280 

i 

3285 

3290 

3295 

C 

3300 

85 

80 

84 


WS=WS*l.E-3 

WS=WS/SIG 

IFtUVMAX-WS) 3215,3220,3220 

N10=l 

NJ1=J 

UVMAX=WS 

IF(NMAX) 1, 1,2 

EULER I AN  CHECK  FOR  RAOIAL  PARTICLE  VELOCITY. 
CONTINUE 

WS*ABS(U(K)I/TAU<  I  )*Xm/.5*PIDY 
GO  TO  3225 

PIC  CHECK  FOR  RAOIAL  PARTICLE  VELOCITY. 

MS=ABS(U<K)l/Oxm 

IF! UVMAX-WSI3230, 3235, 3235 

UVMAX=WS 

N10»I 

N11=J 

WS=ABSCV(K) )/OY(J» 

IF ( UVMAX-WS) 3245,3250, 3250 

N10«I 

Nll=J 

UVHAX=WS 

CONTINUE 

K=K+  IMAX 

IFIUVMAXI9912, 9912, 3260 
FOR  OPTIONS  ON  CABLN,  CHECK 
SECTION  3.4  IN  GAM0-5580. 

IF (CABLNI90,  91 , 3300 
0T=* . 5/ VEL/UVNAX*Z 1 1391 
GO  TO  3295 
HS=UVMAX*OT 
WSA*0. 5/VEL 

IF( FFA-WSA )327c . 3276,  3270 
FFA=HSA 

IF<WS~FFA* 3285, 3300, 3280 
DT3»0T/WS*FFB/0.9 
GO  TO  3295 

IF! WS-FFBI 3290, 3290, 3300 
DT=»OT*FFA/  WS*0  •  9 
KDT=0 

INTEGRATE  THE  TIME  ANO  CYCLE  COUNTER. 
T*T*OTNA 

IF! OTR AO I 991 1 ,80,81 

NR«NRN 

WS»NR 

TRAD=OT/WS 

GO  TO  82 

IHS=OT/OTRAO 

NR=I WS+1 

I F ( NR-NRM 184*34,80 


COT  .1340 
COT  1350 
COT  1360 
COT  1370 
COT  1380 
COT  1390 
COT  1400 

COT  1410 
COT  1420 
COT  1430 

COT  1440 
COT  1450 
COT  1460 
COT  1470 
CpT  1480 
COT  1490 
COT  1500 
COT  1510 
COT  1520 
COT  1530 
COT  1540 
COT  1550 


COT  1560 
COT  1570 
COT  1580 
COT  1590 
CDT  1600 
COT  1610 
COT  1620 
CDT  1630 
CDT  1640 
COT  1650 
COT  1660 
COT  1670 
COT  1680 

COT  1690 
CDT  1700 
COT  1710 
COT  1720 
COT  1730 
COT  1740 
COT  1750 
COT  1760 
COT  1770 


Ill 


82  NC=NC*1 
CYCLE=NC 
NPC=NPC+1 

3305  IF(T)99Q9, 3320, 3310 
3310  IHKDT)9910, 3315, 3320 
3315  WRITE  ( 6, 8000 )T » DINA  »DT 
3320  0TNA=DT 

GO  TO  3325 

:  NEGATIVE  MASS 

9901  NK=3020 

GO  TO  9999 

9909  NK=3305 

GO  TO  9999 

9910  NK=3310 

GO  TO  9999 

THE  OT  WILL  BE  0.  OR  NEGATIVE  ,SI0P 
9912  NK=1 

GO  TO  9999 

9911  NK=85 
9999  NR-2 

CALL  DUMP 
3325  RETURN 

80000FORMAT  ( 17H0CHANGE  OT  ...  T=1PE9.3,UH 
UN+1  )  =  1PE9.3) 

END 


0TtN)=lPE9.3,13H 


COT  1780 
COT  1790  ; 
COT  1800  i 
COT  1810  ( 
COT  1820  j 
COT  1830 
COT  1840  * 
COT  1850  ! 
COT  1860 
COT  1870  j 
COT  1880  J 
COT  1890  S 

cot  1900  : 

COT  1910  ' 
COT  1920 


COT  1930 
COT  1940 
COT  1950 
COT  1960 
DTCOT  1970 
COT  1980 
COT  1990 
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tlBFTG  PHI  LIST,OECK,REF 
SUBROUTINE  PHI 

VELOCITIES,  ENERGIES,  PRESSURES  ARE  AT  THE 
CENTER  OF  THE  CELL- 
121  PASSES  THRU  PHI  ARE  REQUIRED.  NO 
HASS  IS  MOVED  IN  PHI. 

******  NQT£  1  MATERIAL  ONLY  (X)J  ************ 


NRT=0 

NRC=0 

UU-l.E+15 

UT*0.0 

YOU  WILL  GET  BACK  HERE  IF  AIX  WAS  LESS 
THAN  0.  ANO  PROVIOEO  SN=0. 

8000  VEL*1.0 

INITIALIZE  MIO-POINTS  OF  FIRST  AND  SECOND 
CELL  IN  R  DIRECTION. 

3301  RC=DX(l)/2.0 
RR»(X(U+XC2n/2.0 

3304  K=2 

AXIS  OF  SYMMETRY  BOUNOARY  CONDITIONS. 

DO  3302  J=l* JMAX 
PLI JI-RIKI 
ULI J 1=0.0 

3302  K=K+IMAX 

FIRST  PASS  THRU,  CALCULATE  U  AND  V  AT 
CYCLE  N*l,  AND  THE  WORK  TERMS  USING  U  AND  V 
FROM  CYCLE  N. 

SECOND  PASS  THRU,  CALCULATE  ONLY  THE 
CONTRIBUTION  TO  THE  CHANGE  IN  INTERNAL  ENERGY 
FROM  WORK  TERMS  EVALUATED  FROM  U  AND  V 
AT  CYCLE  N+l. 

DO  3360  1=1,11 
K=  1  + 1 

IFiCVlSi,7002, 7003, 7003 
;  BOTTOM  BOUNDARY  IS  TRANSMI IT IVE. 

7002  VBLO=V(K» 

PBL0=0.0 
GO  TO  7004 

;  BOTTOM  BOUNOARY  IS  REFLECTIVE. 

7003  VBLO=0.0 
P8LQ=P(K) 

7004  TAUOTS=TAU<I>*OT 

;  11=  MAX. (I)  OF  DISTURBANCE  IN  R  DIRECTION. 


PHI  0010 
PHI  0900 


PHI  0980 
PHI  0990 
PHI  1000 
PHI  1010 
PHI  1020 
PHI  1030 
PHI  1040 
PHI  1050 
PHI  1060 
PHi  1070 
PHI  1080 


PHi  1090 


PHI  1100 
PHI  1110 
PHI  1120 

PHI  1130 
PHI  1140 
PHI  1150 
PHI  1160 


PHI  1170 
PHI  1180 
PHI  1190 

PHI  1200 
PHI  1210 
PHI  1220 

PHI  1230 
PHI  1240 
PHI  1250 
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12=  MAXIJ)  OF  DISTURBANCE  IN  l  DIRECTION. 
DO  LOOP  IN  J  DIRECTION 


DO  3348  J=1 , I 2 

PHI 

1260  , 

PIDTS=1.0/(PTDY*DT*DY( J)  > 

K-  INDEX  OF  CELL  IN  QUESTION. 

N=  INDEX  OF  CELL  ABOVE. 

PHI 

1270 

N=K+ IMAX 

PHI 

12U0, 

3305 

IFIAMXIX) >9902,3340,3306 

PHI 

1290  % 

3306 

IF( IMAX- 1)9903, 331 1,3310 

PHI 

1300: 

3310 

IFUMXCK+l ) 19904, 3312,3314 

WE  ARE  AT  THE  RIGHT  BOUNDARY,  SET  PRESSURE 

GRADIENT  TO  0.  IN  R  DIRECTION,  MODIFY  ETH. 

FOR  RIGHT  BOUNDARY  BEING  TRANSMI TTI VE. 

PHI 

1310 

33il 

PRR=PL I J ) 

PHI 

1320 

3307 

ETH=ETH-PRR*U(K)/PIDTS*RC 

PHI 

1330 

GO  TO  3313 

RIGHT  BOUNDARY  CONDITION  FOR  THE  MOMENTUM  EQ. 

ADJACENT  TO  EMPTY  CELL. 

PHI 

1340 

3312 

PRR=0. 0 

PHI 

1350 

3313 

URR=RC*U(K) 

PHI 

1360 

GO  TO  3316 

CALCULATE  PRESSURE  AT  INTERFACE! I )  AND 
(RU)  FOR  WORK  TERM. 

PHI 

1370 

3314 

PRR=!P(K)+P(K+l))/2.0 

PHI 

1380 

3315 

URR=(UfX)*RC*.J{K*l)*RR)/2cO 

PHI 

1390 

3316 

IF! JMAX-J >9905,3318, 3320 

SET  PRESSURE  GRAOIENT  TO  0.  THIS  IS  FOR  TOP 

BOUNDARY  BEING  TRANSM I TTI VE. 

PHI 

1400 

3318 

PABOVE=PBLO 

MODIFY  ETH  FOR  TOP  BOUNDARY  CONDITION. 

PHI 

1410 

3319 

ETH=ETH-PAB0VE*V(K)/2.0*TAUDTS 

PHI 

1420 

GO  TO  3323 

PHI 

1430 

3320 

IF ( AMX( N ) ) 9906, 3322 , 3324 

TOP  BOUNDARY  CONDITION  (EMPTY  CELL  ABOVE.) 

TOP  BOUNDARY  CONDITION  FOR  VELOCITY  (EMPTY  CELL  ABOVE). 

PHI 

1440 

3322 

PABOVE=0.0 

PHI 

1450 

3323 

VA80VE=V!K) 

PHI 

1460 

GO  TO  3328 

CALCULATE  PRESSURE  AT  INTERFACE ( J ) 

PHI 

1470 

3324 

PAB0VE=(P«K)+P(N))/2.0 

PHI 

148C 

IF(CVIS)7001, 3325, 3325 

PHI 

1490 

7001 

IF(1-J)3325, 7000, 9905 

BOTTOM  BOUNDARY  IS  TRANSMI TT I VE ,  SET  PRESSURE 

GRADIENT  TO  0. 

AND  MODIFY  ETH. 

PHI 

1500 

7000 

PSLQ-P ABOVE 

PHI 

1510 

ETH=6TH+PBLO*V(K)/2.0*TAUDTS 

VELOCITY  ^T  INTERFACE! J) 

PHI 

1520 

3325 

VABDVE=(V<K)+V(N))/2.0 

PHI 

1530 

3328 

IFIVEL >9907, 3404,3400 

PHI 

1540 

i*  *1m#U 


non  non  noon  n  n  on  on 


Hi*. 


3400 

COMPUTE  DELTA  U  AND  DELTA  V. 

Y(KJ=V(K)+(  P8L0--PABQVE  ) *TAU0TS/ f  AM.X(  K I  5 

PHI 

1550 

I  F( £BS( V(  K  l 1-1.E-G81 34G1 ,3401 v 3402 

PHI 

1560 

3401 

V(KI=0.0 

PHI 

1570 

3402 

U{K)=U(K‘  +  <PLUI-PRK)/(AMX(K)l*RC/PfDTS*2,0 

PHI 

1580 

IF!  ABS(U(KH-1 .E-08 13403,3403, 3404 

PHI 

1590 

3403 

U( K ) =0.0 

PHI 

1600 

3404 

CHECK  FOR  ADVANCING  COUNTERS  OF  THE  ACTIVE 

GRID  IN  THE  R  DIRECTION. 

2 F €  I- 1 116016,6005,6005 

PHI 

1610 

6005 

IFCU(K) ) 660 5, 6606  {  6605 

PHI 

1620 

6605 

NRC=1 

PHI 

1630 

6606 

IFCV4KJJ 6607,6004,6607 

PHI 

1640 

6607 

NRC=1 

PHI 

1650 

6004 

IF(  A  IX(  K ))  6015*  60?>  6,6015 

PHI 

1660 

6015 

NRC=i 

PHI 

1670 

6016 

CONTINUE 

PHI 

1680 

HERE  CALCULATE  CHANGE  IN  INTERNAL  ENERGY 

DUE  TO  WORK  TERMS  ONLY. 

HS=I V8LO-VASOVE)*TAUOTS/2.0*P(K) 

PHI 

1690 

RHO=aS*JUL(J)-URR)/PIDTS*PlK» 

PHI 

1700 

3332 

CONVERT  TO  SPECIFIC  INTERNAL  ENERGY. 
WSX=AIX(K>*RHQ/AMXCKI 

PHI 

1710 

GO  TO  1300 

PHI 

1720 

1000 

CHECK  FOR  NEGATIVE  INTERNAL  ENERGIES. 

IFJWSXilOU, 1001, 1001 

PHI 

1730 

1001 

AIXCU=KSX 

PHI 

1740 

GO  TO  3342 

PHI 

1750 

1011 

UT-1.0 

PHI 

1760 

COMPUTE  NEW  DTI  STORE  IN  UU)  ASSUMING 

THAT  01/ DT  WILL  BE  THE  SAME  FOR  A  SMALLER 

TIME  STEP,  THE  NEW  DT  IS  CHOSEN  SUCH 

THAT  AIXIAT  M*l>=2/3  OF  AIXCN5. 

WSA=2.0*AIX(K)/3.0*OT/I AIX(K)-MSX) 

PHI 

1770 

1013 

IF{ WSA-UUI 1014, 1001, 1GC1 

PHI 

1780 

1014 

UU=WS£ 

PHI 

1790 

GO  TO  1001 

PHI 

1800 

3340 

CELL  ( X  >  IS  EMPTY,  SET  INTERFACE  QUANTITIES, 

ASSUMING  CELL  TO  THE  RIGHT  AND  TOP  ARE 

NOT  VOID. 

PRR  =  0«  0 

PHI 

1810 

URR=UCK*li*RR 

PHI 

1820 

PA80VE=G.Q 

PHI 

1830 

VA60V£=V(MI 

PHI 

1840 

3342 

SET  RIGHT  QUANTITIES  TO  THE  LEFT  (FOR  NEXT 

COLUMN  SWEEP I  AND  SET  ABOVE  QUANTITIES  TO 

BELOW  FOR  NEXT  CELL  ABOVE. 

V3L0=VA2GVE 

PHI 

1850 

PL( J ) =PRR 

PHI 

i860 

UL ' 3  J  =URR 

PHI 

1870 

115. 

K=*N 

PHI 

1880 

3348 

PBL0=PAB0VE 

PHI 

1890 

LL=K-IMAX 

PHI 

1900 

C 

CHECK  FGR  ADVANCING  COUNTERS  OF  THE  ACTIVE 

c 

GRID  IN  2  DIRECTION. 

IFCUILL 1)6000,6001,6000 

PHI 

1910 

6000 

NRT=l 

PHI 

1920 

6001 

!FIV(LLii)6002«  6003,6002 

PHI 

1930 

6002 

NRT=1 

PHI 

1940 

6003 

IFIAIXJLL) 16017,6018,6017 

PHI 

1950 

6017 

NRT=1 

PHI 

1960 

6018 

CONTINUE 

PHI 

1970 

3355 

RC=RR 

PHI 

1980 

RR=(XI  I+ll+XI 1+2 ) 1/2.0 

PHI 

1990 

3360 

CONTINUE 

PHI 

2000 

3361 

IF< VEL 19911, 10000,3363 

PHI 

2010 

3363 

V6L=0.0 

PHI 

2020 

GO  TO  3301 

PHI 

2030 

C 

ERROR 

PHI 

2040 

9902 

NK=3305 

PHI 

2050 

GO  TO  9999 

PHi 

2060 

9903 

NK=3306 

PHI 

2070 

GO  TO  9999 

PHI 

2080 

9904 

NK=3310 

PHI 

2090 

GO  TO  9999 

PHI 

2100 

9905 

NK=3316 

PHI 

2110 

GO  TO  9999 

PHI 

2120 

9906 

NK*3320 

PHI 

2130 

GO  TO  9999 

PHI 

2140 

990? 

NK*3328 

PHI 

2150 

GO  TO  9999 

PHI 

2160 

9911 

NK=3361 

PHI 

2170 

9999 

NR =3 

PHI 

2180 

CALL  OUMP 

PHI 

2190 

C 

IF  SN»N0T=0. )  ANY  NEGATIVE  ENERGIES  WILL 

C 

REMAIN.  S F=0 ,  CODE  WILL  TRY  ANOTHER  PASS 

C 

WITH  A  SMALLER  Of. 

10000 

IFCSNI703G, 7031, 7030 

PHI 

2200 

7031 

IFCUTI 7020, 7030,7010 

PHI 

2210 

C 

NEGATIVE  ENERGIES  HAVE  OCCURED,  INTEGRATE 

C 

BACK  TO  CYCLE  N  WITH  (-DTI. 

7010 

UT=- 1.0 

PHI 

2220 

0T=-0T 

PHi 

2230 

C 

YOU  NOW  HAVE  INTEGRATED  BACK  TO  CYCl  4.  NUW 

C 

INTEGRATE  TO  CYCLE  N+i  WITH  NEW  DT  <  STORED  IN  UU). 

GO  TO  8000 

PHI 

2240 

7G20 

UT=0.0 

PHI 

2250 

0T=UU 

PHI 

2260 

NR=DT/TR&0+1.0 

PHi 

2270 

WS=NR 

PHI 

2280 

116, 

• 

TRA0=0T/WS 

PHI 

2290 

DTNA=DT 

PHI 

2300 

GO  TO  8000 

PHI 

2310 

r. 

INCREASE  ACTIVE  GRID  COUNTERS  IF  NEEDED. 

703C 

11=1 1+NRC 

PHI 

2320 

I2=I2+NRT 

PHI 

2330 

iff  23.- IMAXI6100, 6100, 6200 

PHI 

2  3  AO 

6200 

1 1=IMAX 

PHI 

2350 

6100 

IF  C 12- JMAXJ6201, 6201, 6202 

PHI 

2360 

6202 

I2=JHAX 

PHI 

2370 

6201 

RETURN 

PHI 

2380 

END 

PHi 

2390 

f 
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$  I BFTC  PH2  LIST  , DECK, REF 
SUBROUTINE  PH2 

2(110>=  CRITICAL  ENERGY!  BETWEEN  GAS  AND  CONDENSED  STATE  I 
Z<nii=  INITIAL  DENSITY 
Z(U2I  =  INITIAL  VELOCilY  OF  PELLET 

Z « 1131=  EPSILONICS  FOR  EMPTYING  PELLET  ON  BASIS  OF  VELOCITY 
TOZONE  =  MINIMUM  DENSITY  FOR  MASS  FLOW 


AMPY=MASS  ACROSS  TOP  BOUNDARY  OF  CELL 
AMUT=RADIAl  MOMENTA  OF  THIS  MASS 
AMVT- AXIAL  MOMENTA  OF  THIS  MASS 
DELET=rOTAL  SPECIFIC  ENERGY  OF  THIS  MASS 
AMMP=MA5S  ACROSS  RIGHT  BOUNDARY  OF  CEtL 
AMUR=RADI At  MOMENTA  OF  THIS  MASS 
A“VR=AXI AL  MOMENTA  OF  THIS  MASS 
D£L£R=T(JTAL  SPECIFIC  ENERGY  OF  THIS  MASS 
AMMY=MASS  ACROSS  BOTTOM  BOUNDARY  OF  CELL 
AMMU=RADIAL  MOMENTA  OF  THIS  MASS 
C  AMMV=AXIAL  MOMENTA  OF  THIS  MASS 
C  DEL£B=TOTAL  SPECIFIC  ENERGY  OF  THIS  MASS 
C  GAMC=MASS  ACROSS  LEFT  BOUNDARY  OF  CELL 
C  FL£FT=RADI AL  MOMENTA  OF  THIS  MASS 

C  YAMC=AXIAL  MOMENTA  OF  THIS  MASS 

C  SIGC=TQT AL  SPECIFIC  ENERGY  OF  THIS  MASS 

C 

NRT=0 

NRC=0 

REZ=OcO 

CALL  SLITE  (01 

PIOTS= lo  0/ ( PIDY+DT ) 

101  DO  103  J=i » JMAX 

102  GAMC(3 l -Or  0 
FLEFT1  w‘  i=0  oO 
YAMCt J)-OoO 
SIGC(JJ=OcO 

103  CONTINUE 

104  DO  547  1  =  1 v  II 
J=] 

105  K=I+1 

80  IF { AMX( K  f  J  9900 ,97,81 

81  IF(VCK) 182,97,97 
97  AMHV=OoO 

GO  TO  98 

82  AMMY=AMX(K)*V(K>*OT/OY{  Ji 

83  lFiAMMY*AMX(KH84, 85,85 

84  AMMV=-AMXt  K) 

85  IF| C V  IS ) 106, 99, 99 

C  BOTTOM  BOUNDARY  IS  TRANSMI TT I Vfc ,  MATERIAL  IS  MOVING 


PH2  0010 


PH2  0900 
PH2  0980 


PH2  0990 
PH2  1010 
PH2  1020 
PH2  1030 
PH2  1040 
PH2  1050 
PH2  1060 
PH2  1070 
PH2  1080 
PH2  1090 
PH2  1100 
PH2  1110 
PH2  1120 
PH2  1130 
PH2  1140 
PH2  1150 
PH2  t 160 
PH2  1170 
PH2  1180 
PH2  1190 
PH2  1200 
PH2  1210 
PH2  1220 
PH2  1230 


OUT,  REMOVE  ITS  ENERGY  FROM  ETH. 

106  AMMU=AMMY*U(KI 
AMMV“AMMY*V I K  $ 

OELEB=AIX{  K  M  C UI K ) **2*V IKi**2)/2.0 

WS=(U()U**2+V<K)**2}/2»0 

ETM=ETH+AMMY*<A£XIKHWS? 

GO  TO  10? 

BOTTOM  BOUNDARY  IS  REFLECTIVE,  NET  MOMENTA  CHANGE 
IN  2  DIRECTION  IS  2  HV. 

99  AMMV=2cO*AMMY*V(K) 

98  AMMY-0 oO 
AMMW=0«>0 
DELEB=OoO 

8EG1N  DO  LOOP  IN  J(2)  DIRECTION. 

107  DO  546  J-i » 1 2 
106  L=K*IMAX 

1=1 

AREA-OoO 

V£L=OcO 

FS^OoO 

210  IF(JhAX"JJ211, 211*207 

211  VEL^loO 
GO  TO  208 

207  IF  I AMX ILJI215, 215,214 

214  IF!  AMXf  KH216t216,209 
216  VABOVE=VCL» 

GO  TO  212 

215  IFIAMXUO  1205,205*203 
205  VABOVE-OuO 

GO  TO  212 

208  VABOVE^VCXi 
GO  TO  212 

209  VAB0V£  =  (yiK)-J-VCLn/2.0 

212  CONTINUE 
i  =  i 

FS-OcO 

404  IFd I  MAX- H 412,412, 405 

405  IF!  AMX<K*1H411, 411,409 

409  IFIA MX IK  51410,410, 4 07 

410  URR-UC  X+ i J 
GO  TO  408 

411  IF! AMXiK ) 1 403,403,406 
403  URR-OcO 

GO  TO  408 

WE  ARE  AT  THE  RIGHT  BOUNDARY  OF  THE  GRID,  THE 
BOUNDARY  CONDITION  HERE  IS  TRANSMIT? I VF« 

412  FS=i <C 

406  URR-UI K  l 


PH2  1240 
PH 2  1250 
PH2  1260 
PH2  1270 
PH2  1280 
PH2  1290 


PH2  1300 
PH2  1310 
PH2  1320 
PH2  1330 

PH2  1340 
PH2  1350 
PH2  1360 
PH2  1370 
PH 2  1380 
PH2  1390 
PH2  1400 
PH2  1410 
PH2  1420 
PH2  1430 
PH2  1440 
PH2  1450 
PH2  1460 
PH2  1470 
PH2  1480 
PH2  1490 
PM2  1500 
PH 2  1510 
PH2  1520 
PH2  1530 
PH2  1540 
PH2  1550 
PH2  1560 
PH2  1570 
PH2  1580 
PH2  1590 
PH2  1600 
PH2  1610 
PH3  1620 
PH2  1630 
PH2  1640 
PH2  1650 


PH 2  1660 
PH2  1670 
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GO  TO  408 

40?  URR=(U<KHU(K*l))/2.0 
408  CONTINUE 

109  IF (AREA  1990 1*301,  547 

301  IF!  V ABOVE ) 300 »  304*  302 

302  IF ( AMX(K ) ) 9900*  304*  8800 

8800  IFCJ-D9900, 303*8801 

8801  KP*K~IMAX 
IFCAMXCKPi ) 9900, 8803*303 

A  CHECK  HERE  TO  INSURE  THAT  THE  BOTTOM  ZONES 
OF  THE  PROJECTILE  EMPTY  (FOR  HYPERVELQC ITY I  UP  UNTIL 
THE  INITIAL  VELOCITY  CHANGES  DUE  TO  THE  SHOCK. 

8803  IFCABSf VASOVE-Z (11211 /Z( 112) -Z( 113 1)306*303 *303 

303 

JJ=J 

GO  TO  307 

304  AHPY=0.0 
308  AMUT  =0.0 

AHVT^OoO 
0EL£T30.0 
GO  TO  501 

300  IF (VEL) 9901*  305.304 

305  IF  ( AMX(  L }) 9903*  304 , 306 

306  H=L 
JJ=J+1 

30?  IF(VEL)6i30, 6130, 6140 
6130  kJ$A=(V(K)-*-V(L)  )/2*C 

WS8~ i.O+(V(L)“V(K) }/(OY(JJ) *SBCUND) *0T 
VABOVE=WSA/WSB 

C  CALCULATE  THE  MASS  FLUX  AT  THE  TO-  OF  CELL  K. 

6140  ANPY=AMX(M^VA80V£/0Y(  JJ  J*OT 

501  IF CURR) 500 *504* 502 

502  1F(AMX(K)) 9900,504,503 

503  M=K 
N=i 

GO  TO  508 

504  AMMP=0« 0 
AMUR=0<.0 
AMVR=0.0 
OELER=OcO 
GO  TO  1 

5 00  IF(FS)9905, 506*504 

506  IFtAHX(K+l > )9904, 504*507 

507  M=K-M 
N-l+1 

508  IF(FS)6I00, 6100,6110 
6100  WSA=(U(KHU(K  +  i)  )/2.0 

&S8=1.0+(U(K-U)-UU}  )/(DX(N)*S80UNDJ*0T 
URR-WSA/WSB 

C  CALCULATE  THE  MASS  FLUX  AT  THE  RIGHT  OF  CELL  K. 


PH2  1680 
PH2  1690 
PH2  1700 
PH2  1710 
PH2  1720 
PH2  1730, 
PH2  1740 
PH2  1750 
PH2  1760  ‘ 


PH2  1770 
PH2  1780 
PH2  1790 
FH2  1800 
PH2  1810 
PH2  1820 
PH2  1830 
PH2  i.840 
PH2  18*0 
PH2  1060 
PH2  187G 
PH2  1880 
PH3  f.890 
PH2  1900 
PK2  1910 
PH 2  1920 
PH2  1930 

?H2  1940 
PH2  1950 
PH2  I960 
PH2  1970 
PH2  1980 
PH2  1990 
PH2  2000 
PH2  2010 
PH2  2020 
PH2  2030 
PH2  2040 
PH2  2050 
PH2  2060 
PH 2  2070 
PH2  2080 
PH2  2090 
PH 2  2100 
PH2  211G 
PH2  2120 


r>oo  o  on  n  on  o  non 


{ 


f 


I  xSO 

|  6110  QEN«AMX{M)/TAUIN> 

!  AHNP=D£N/PIBTS*X( I)/.5*URR 

j  1  IFI AMMP  I 16«  ?4«882C 
!  8820  IFCGAMCi JH74«74,8821 

8821  IFCFS)6120f612C»?4 

6120  IFIA«XCK+lH9903#8822t74 

8822  IFIAMXIKI/I TAUI I )*0YiJl  )-Z( 1 1 1 1  J8823«74# 74 

8823  IF(AIXIK)-ZI 1101)8824,74,74 

8824  W$=GAMC « 0 5  *ANX( KJ-TAUS I  )  *DY  i  J )  s=Z  ( 1 1 1 ) 

IF(WS) 8826 ,8 826,8825 

8825  ANMf»=HS  / 

GO  TO  74 

8826  AHMP»0o0 
74  JT AG=0 

BEGIN  CHECKING  TO  SEE  IF  THEIR  IS  ANY 
PREFERENTIAL  NASS  FLUX  .BECAUSE  OF  CHOICE  OF 
INDEXING  DIRECTION. 

2  IF«ANPY)3,4,4 
TOP  FLUX  IS  INTO  CELL  K. 

3  ITAG=1 
WSB-AMPY 
ANPY=0o  0 
GO  TO  64 

4  ITAG=0 

64  IFI  AMMY 1 9»  5»  5 

BOTTOM  FLUX  IS  INTO  CELL  K. 

5  I  FI  GAMC (J) )  7, 6 ?  6 
LEFT  FLUX  IS  INTO  CEILK. 

6  NS^AHX  I K  ) 

GO  70  il 

LEFT  FLUX  IS  OUT. 

7  HS*AMX<K)*GAtiCf Jl 
GO  TO  11 

BOTTOM  FLUX  IS  OUT  OF  CELL  K. 

9  IFCGAMCI J)ll0f8t9 

LEFT  FLUX  15  INTO  CELL  K. 

8  WS=--AMX(KH-AMNY 
GO  TO  11 

LEFT  FLUX  IS  OUT  OF  CELL  K. 

10  WS=AHXIX)*GAMC< Jl+AMMV 

11  WSA=AHPY+AMMP 

12  IF! HSA-WS) 75,75,13 
CHANGE  TOP  AND  RIGHT  FLUX  TO  3t  THE 
OLD  FLUX  TIMES  THE  MASS  OF  THE  CEuL/THE  SUM 
OF  THE  OLD  FLUXES. 

13  AMPY"AMPY*WS/WSA 
AMMP=AMMP*WS/WSA 

75  IF(JTAG514#73V14  ! 

73  aSC«AMMP 

14  IF S ITAG 1 15,7000,15 


PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 


PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 

PH2 


PH2 

PH2 

PH2 

PH2 

PH2 


2130 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 


2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 


2450 

2460 

247.0 

2480* 

2490 


AMPY=W$B 

ITAG=0 

GO  CHECK  CELL  ABOVE . 

GO  TO  40 

RIGHT  FLUX  IS  INTO  CELL  K. 

IF(FSJ76rl7,76 

WSC=AMMP 

I=IMAX,  SO  CHECK  CELL  ABOVE  K. 

GO  TO  40 

IF  I I*l-IHAX}19flS?  9908 
URRR=UIK*l)/2„0 
GO  TO  20 

URRR=MUIK>mUlK*2n/2.0 
IF( URRR  f  39»  39»  21 

FLUX  IS  OUT  OF  THE  RIGHT  OF  CELLIKU). 

URRR=URRR/TAUU*l)*AMX{K  +  n/PlO'.  S*X(  !  +  !)/< 

If ( J-i )  9909*23*24 

VBLO=V(K4-I)/2oO 

GO  TO  26 

KP=K+1- SHAX 

VBLO=(V{K+U+yjKP)  1/2.0 
IFIVBLO)25*33*38 

FLUX  IS  OUT  OF  T HE  BOTTOM  OF  CELUK+l). 

V0LO=AMX<K+iI/OY< J)*yBlU«DT 

IFIVEL  )28*29«,28 

VAB=V{KfU/2oO 

GO  TO  31 

KP=K+I MAX+ 1 

VAB=(V(K*1  H-V(KP}  )/2„0 
IF { VAB  ? 36v  36*  30 
FLUX  IS  OUT  OF  TOP. 

VAB=AMX{K+1)/0Y( Ji*VA8*DT 
WS=AMX { K+l > 

*<SA=URRR-AMMP~VbLQ+YA8 

IFIWSA-WSI 77*77,35 

AHMP=ANMP*WS/V»$A 

JTAG=l 

WSC=AMMP 

AMH?=0o.j 

GO  r0  ? 

FLUX  AT  70*  IS  INTO  CELL  (K+l). 
cJS=4«Xl  <*•! 

MSAs<JRRR-AWP-VbLG 
GO  TO  34 

r LUX  IS  IN  =RCM  *'nitOM  INTO  CELL  !K+1  >. 
VBLG— 0=  0 
GO  TO  2? 

FLUX  IS  INkI  Cci.L  «..U  FROM  RIGHT. 

URRR»C.O 

GO  TO  22 


PH2  2500  , 
PH2  2510  * 

PH2  2520 

PH2  2530  ' 
PH2  2540 

PH 2  2550 
PH2  2560 
PH2  2570 
PH2  2580 
PH2  2590 
PH2  2600 


PH2  2620 
PH2  2630 
PH2  2640 
PH2  2650 
PH2  2660 
PH2  2670 

PH2  2680 
PH2  2690 
PH2  2700 
PH2  2710 
PH2  2720 
PH2  2730 
PH2  2740 

PH 2  2750 
PH2  2760 
PH2  2770 
PH2  2780 
PH2  2790 
PH2  2800 
PH2  2810 
PH2  2820 
PH2  2830 

PH2  2840 
PH 2  2850 
PH2  2860 

PH2  2870 
PH?  2880 

PH2  2890 
PH2  2900 


22 


40 

RIGHT  FLUX  OUT  OF  CELL  t K 1  IS  POSITIVE  AND  TOP 

FLUX  IS  COMING  INTO  CE* A  <K)  FROM  (KHMAXI. 

IFIVEL 17000*41*  7000 

PH2 

2910 

41 

IF(FS>42*43,42 

PH2 

2920 

4  2 

ME  ARE  AT  THE  RIGHT  BOUNDARY  OF  THE  GRID. 

KP=K*IMAX 

PH2 

2930 

URT=U(  KPI/2.0 

PH2 

2940 

GO  TO  45 

PH2 

2950 

43 

KPSK*I MAX 

PH2 

2960 

URT*(U(KP1  ■s-UiKP  +  l )  1/2.0 

PH2 

2970 

45 

IF( URT 1 46t  46*70 

PH2 

2980 

46 

FLUX  AT  RIGHT  (CELL  MI  IS  NEGATIVE. 

URT*0„0 

PH2 

2990 

GO  TO  47 

PH2 

3000 

70 

KP=K+l MAX 

PH2 

3010 

47 

URT=URT/TAUI  n*AMX(KP)/PIDTS*X<  I1/.5 

FLUX  AT  RIGHT  (CELL  M»  IS  POSITIVE. 

IF( J+l~ JMAX ) 48*49*  9910 

PH2 

3030 

48 

KP=K+IMAX 

PH2 

3040 

KL»KP+IMAX 

PH  2 

3050 

VABTs<V(KPKV(KLH/2.0 

PH2 

3060 

GO  TO  51 

PH2 

3070 

49 

KP=K*I MAX 

PH2 

3080 

KL=KP«-1MAX 

PH2 

3090 

VABT=V(KP)/2«0 

PH2 

3100 

51 

IF(VABT)8810, 71*72 

PH2 

3110 

8810 

FLUX  IS  IN  FROM  TOP  OF  CELL  M. 

IF! AMX( K 1 ) 9903*881 1,71 

PH2 

3120 

8811 

CHECK  FOR  SOLID  OR  VAPOR. 

IFIAMXCKPl /{TAU( I) *DYi J*1 ) 1 -Z( 1 1 i 1 18812,71,71 

PH2 

3130 

8812 

IF(AIX(KPI-Z(110>)8813,71,71 

PH2 

3140 

8813 

VABT3VABT#AMX(KL  I/DYC  J+2)<tDT 

PH  2 

3150 

8814 

WS=- VABT-frAMX  (KP  l-T  AU(  I  >*DY< J+l >*Z ' U 1 i 

PH2 

3160 

8815 

IF( MS 18817*8817* 88 16 

PH2 

3170 

8816 

AMPV=-WS 

PH2 

3180 

GO  TO  71 

PH2 

3190 

8817 

AMPY=Or  0 

PH2 

3200 

71 

VA8T=0o0 

PH2 

3210 

GO  TO  60 

PH2 

3220 

72 

VAST  =VABT*AMX(KP)/DY { J+ i  1*DT 

PH2 

3230 

52 

IF (GAMC ( 11 154,53*53 

PH2 

3240 

53 

WS=AMX(KP) 

PH  2 

3250 

GO  TO  55 

PH2 

3260 

54 

WS*AMX  { KP I  +-GAMC  ( 1 » 

PH2 

3270 

55 

WSA»VABT-A«PY*-URT 

PH2 

3280 

GO  TO  57 

PH2 

3290 

60 

IF(GAMC( J+ll i6,  ,61*59 

PH2 

3300 

61 

WS=AMX(KP)^GAMC(J+li 

PH2 

3310 

GO  TO  58 

PH2 

3320 

59 

WS=AMX(KP) 

PH2 

3330 

58  WSA=-AMPY+URT 
57  IF( WSA-WS) 7000*  7000,56 
56  AMPY=AMPY*WS/WSA 
GO  TO  7000 

7000  AMHP=WSC 

309  IFIAMPY)8834,8831,8833 

8833  IF(JMAX-J)9911, 318, 8835 

8835  KP=K+IMAX 

8836  IFIAMX(KP) 19900,8837,318 

C  ***♦  NOTE  *************************************************** 

C  ACROSS  FREE  SURFACE,  HOLO  UP  MASS  FLUX 

C  UNLESS  THIS  MASS  PRODUCES  A  DENSITY  GREATER  THAN  TUZONE. 

C  :Mt*********************«*^*** $***$**#**#***********#******** 

8837  IF  CAMPY/ (TAUI I )*0Y{ J) I-TGZONE ) 8838,318, 318 

8838  AMPY=0„0 
GO  TO  8831 

8834  IF(J-1)9911, 325, 8839 

8839  JF( AMXI K I } 9900, 8840,32 5 

8840  IF{-AMPY/<TAUm*DY<J)  I-TOZUNE  )  8841 , 325 , 325 

8841  AMPY=OoO 
GO  TO  8831 

318  DELM=GAMCI JI+AMMY-AMPY 

322  IF ( VEL ) 9901, 324,323 

323  WS=U(K)**2+VIK)**2 

C  MATERIAL  HAS  LEFT  THE  TOP,  TRIGGER  REZGNF 

C  FLAG,  REMOVE  ITS  ENERGV  FROM  £  THU  DIAL  ENERGY  OF  SYSTEM), 
ETH=ETH-AMPY*(AIX{KH-WS/2«.0> 

IF( AMPY/IT  AUC I )*0Y( J ) J-TOZONE )  324, 324,6900 

6900  REZ=loO 

324  AMUT  -AMPY*U{ K ) 

AMVT=AMP  Y<-V  5  K ) 

GO  TO  326 

325  CONTINUE 

8831  AMUT=AMPY*U(Li 
AMV7=AMPY*VIU 
OELM=GAMC( <J  I-AMPY+ AMMY 

326  IF ( AMPY I  327, 328, 328 

327  DELET=AlX(U4-?U<L)**2+Va)**2)/2.0 
GO  TO  333 

328  IF ( AMMY 1329, 330, 330 

329  DELET=I)ELEB 
GO  TO  333 

330  IF{ GAMC { J) >331,332,332 

331  DEl,£T=$  IGC  (  J  ) 

GO  TO  333 

332  DELET=AIX(K)+CU(K)**2+V(K)**2)/2.0 

C  SUM  UP  RADIAL  MOMENTA  FOR  ALL  FLUXES  EXCFPT 

C  THE  RIGHT  AND  STORE  IN  SIGMU* 

333  SIGMU=FLEFTU)+AMMU-AMUT 

C  SUM  UP  AXIAL  MOMENTA  FOR  ALL  FLUXES  EXCEPT  THE 


j 


123. 

PH2  3340  j 
PH2  3350  ‘ 
PH2  3360  ! 
PH2  33  70 
PH2  3380 
PH2  3390 
PH2  3400 
PH2  3410 
PH2  3420  : 


PH2  3430 
PH2  3440 
PH2  3450 
PH?  3460 
PH2  3470 

PH2  3490 
PH2  3500 
PH2  3510 
PH2  3520 
PH2  3530 


PH2  3540 
PH2  3550 
PH2  3560 
PH2  3570 
PK2  3580 
PH2  359G 
PH2  3600 
PH2  3610 
PH 2  3620 
PH2  3630 
PH2  3640 
Ph2  3850 
PH2  3660 
PH2  3670 
PH 2  3680 
PH2  3690 
PH2  3700 
PHZ  3710 
PH2  3720 
PH2  3730 


PH2  3740 


124 


RIGHT  ANO  STORE  IN  SIGMV. 

SIGMV=YAHC I •frAMMV-AMVT 

SUM  UP  TOTAL  ENERGY  CARRIED  BY  THESE  FLUXES 
EXCEPT  THE  RIGHT  FLUX  AND  STORE  IN  DELcK. 
OELEK=GANC ( J l*SI GC ( J) +ANMY*DELE3-AHP Y*D£LET 
509  IFI AMMP 18843, 518,8844 

8844  IFUMAX-n9911, 518,8845 

8845  IFIAMXIK+1I 19900,8846,518 

8846  IFI  AMMP/ITAUI I  )*DYI  JH-TOZONE) 8847, 518, 518 

8847  AHMP=0.0 
GO  TO  518 

8843  IFII-119911, 512, 8848 

8848  IFIAMXIKH9900, 0849, 512 

8849  IFI-AMMP/ITAUI I1*DYI  J  n-TOZQNE) 8850,512,512 

8850  AMMP=0.0 
GO  TO  518 

512  OELM*D£LM-AMMP+AMX ( K ) 

513  CONTINUE 

514  CONTINUE 

8828  AHUR=AMMP*U{ K+l I 
ANVR^AMMP* V I K+ 1 1 
GO  TO  525 

518  0ELN=0ELM-AMMP4-AMXIK» 

521  CONTINUE 

522  IFI FS > 9905 , 524,523 

523  WS=UIK)**2*VfKl**2 
£TH=ETH-AMMP*I A IXI K l-frWS/2*  0) 
iF(AMMP/(TAUm*OY(  JII-TOZ ONE  >524,  524, 6901 

6901  REZ=loO 

524  AMUR=A«MP*UIKI 
AMVP=AMNP*VIK) 

525  SIGMU=SEGMU-AHUR 
SIGMV=SIGMV-AMVR 

526  TIC=0.0 

527  IFIAMMP)528, 529,529 

528  DELER=Al XI K+l >♦{ Ut K+l) **2+V( K+l 1**2 1/2.0 
GO  TO  537 

529  IFI AttHY 1530,531,531 

530  0ELER=DELE8 
GO  TO  536 

531  IFIGAMCIJ) 1532,533,533 

532  0ELER=SIGCIJ1 
GO  TO  536 

533  IFI AMPY 1535,535,534 

534  D£LER=DELET 
GO  TO  536 

535  0ELER=AIX(KH-tUIKl**2+V(Kl **21/2.0 

536  TIC=lcO 


PH2  3750 


PH2  3760 
PH2  3770 
PH2  3780 
PH2  3790 
PH2  3800 
PH2  3810 
PH2  3820 
PH2  3830 
PH2  3840 

PH2  3860 
PH2  3870 
PH2  3880 
PH2  3390 
PH2  3900 
PH2  3910 
PH2  3920 
PH2  393C 
PH2  3940 
PH2  3950 
PH2  3960 
PH2  3970 
PH2  3980 
PH2  3990 
PH2  4000 
PH2  4010 
PH2  4020 
PH2  4030 
PH2  4040 
PH 2  4C50 
PH2  4060 
PH2  4070 
PH2  4080 
PH2  4090 
PH2  4100 
PH2  4 1 10 
PH2  4120 
PH2  4i30 
PH2  4140 
PH2  4150 
PH2  4160 
PH2  4170 
PH2  4180 
PH2  4190 


H537  0ELEK3DELEK-AMMP*DELER 
538  IFITIC19907, 539,550 


PH2  4200 
PH2  4210 


no  on  non  no  on  no 


125 


550  HS=0fcLER 
GO  TO  999 

539  WS=AIXCKM-I  UIK)**2  +  VIK)**2 1/2.0 
V99  IF (DELMJ 998,543,540 

996  IFI AMXI K  )* lo£~6+DELM> 9906 »  997  ,997 

997  DELM=0„0 
GO  TO  543 

ENK= TOTAL  ENERGY  OF  CELL  (K)  +  ENERGY  THAT 
HAS  BEEN  ADDED  AND  LOSl. 

540  £NK=*AMX(K)*WS+DELEK 

BY  CONSERVING  AXIAL  MOMENTA*  CALCULATE  THE  NEW 
AXIAL  VELOCITY  COMPONENT  FOR  CELL  K. 

541  U( K  )  =  ( S IGMU+AMX IK ) #U( K ) I/DELM 

BY  CONSERVING  RADIAL  MOMENTA,  CALCULATE  THE  NEW 
RADIAL  VELOCITY  COMPONENT  FOR  CELL  K. 

601  VIK)=( SlGKV+AMXIKi*V(K))/DELM 
IFI 1-111603*6604,6604 

6604  IFIUIKM6605, 6606, 6605 

6605  NRC=1 

6606  IFI VI K ) >6607*6608*6607 

6607  NRC= 1 

6608  IF(AIXIK)) 6609*  6610,6609 

6609  NRC= 1 

6610  CONTINUE 

603  WS=UIK)**2+VIK)**2 

BY  CONSERVING  BOTH  TOTAL  ENERGY  ANO 
MOMENTA,  CALCULATE  THE  NEW  SPECIFIC 
INTERNAL  ENERGY  FOR  CELL  K. 

542  A! X  (  K }  =ENK/DELM-WS/2*> 0 

543  AMXI K)~D£LM 

IF (AMX(K)I 9900,2007, 544 
2007  A IX  f  K1  ~=0,0 
U«KI=0,.0 
V.K l=0o0 
?( K I -On  0 

THE  RIGHT  VALUES  OF  CELL  IK)  BECOME  THE  LEFT 
VALUES  OF  CELL  {KH)o 

544  GAMCI JI-AMMP 
FLEFTI J )=AMUP 
YAMCI J  S=AMVR 
SIGC ( J )=DELER 

THE  TOP  VALUES  OF  CELLIK)  BECOME  THE 
BOTTOM  VALUES  FOR  CELL  IK+IMAX).. 

545  AMMY=AMPY 
AMMU=AMUT 
AMMV-AMVT 
DELEB=DELET 

546  K=K+ IMAX 
LL=K-IMAX 

IFI JILL ) ) 6  COO, 6600, 650C 


PH2  422C 
PH2  4230 
PH2  4240 
PH2  4250 
PH2  4260 
PH2  4270 
PH2  4280 


PH2  4290 


PH2  4300 


PH2  4310 
PH2  4320 
PH2  4330 
PH2  4340 
PH2  4350 
PH2  4360 
PH2  4370 
PH2  4380 
PH2  4390 
PH2  4400 


PH2  4410 
PH2  4420 
PH2  4430 
PH2  4440 
PH2  4450 
PH2  4460 
PH2  4470 


PH2  4480 
PH2  4490 
PH2  4500 
PH2  4510 


PH2  4520 
PH2  4530 
PH2  4540 
PH2  4550 
PH2  4560 
PH2  4570 
PH2  4580 


o  o  o  o  o  o 


6500  NKT-l 

6600  IF{V(  Uil  6601 ,6602,6601 

6601  NRT*1 

6602  iFUIXUl  >6611,547,6611 
6611  NRT  =  1 

567  CONTINUE 
11=1  l+NrtC 
J2=T2+NPT 

IF  C I  MAX- 1 1)6700, 6701, 6702 

6700  11=1  MAX 

6701  CONTINUE 

6702  l F  f  JMAX- 1 2 ) 6800 »  6801 »  6802 

6800  I2=JMAX 

6801  CONTINUE 

6802  GU  TO  568 
9901  NK  =  3C0 

GO  TO  9999 
9900  NK=302 

GO  TO  9999 

9903  NK=305 

GO  TO  9999 

9904  NK=506 

GO  TO  9999 

9905  NK  =  500 

GO  TO  9999 

9906  NK=5 1 3 

GO  TO  9999 
9911  NK=8833 

GO  TO  9999 

9908  NK=  17 

GO  TO  9999 

9909  NK  =  22 

GO  TO  9999 

9910  NK*  47 

GO  TO  9999 

9907  NK=538 
9999  NR=4 

CALL  OUMP 
543  SUM=0« 0 
2005  DO  2001  1=1*11 
K=I*1 

DO  2000  J=l , 12 
IF(AHX(KM  2000*2000,2009 

IF  ANY  RHO  ( CELL  DENSITY)  IS  LESS  THAN  TOZONE , 
SET  THE  MASS  TO  ZERO,  ANO  TALLY  THE 
HOMENTAS  ANO  ENERGIES  IN  THE  Z  STORAGE,  ALSO 
CHECK  FOR  NEGATIVE  INTERNAL  ENERGIES,  IF 
WE  FIND  SOME,  SET  THEM  TO  ZERO  AFTER 
SUBTRACTING  THEM  FROM  cTH.  • 

2009  IF { AMXtKJ/lTAUI I)*OY< J H-T020NE > 201 0,2008,2008 


PH2  4590 
PH2  4600 
PH2  4610 
PH2  4620 
PH2  4630 
PH2  4640 
PH2  4650 
PH2  4660 
PH2  4670 
PH2  4680 
PH2  4690 
PH2  4700 
PH2  4710 
PH 2  4720 
PH2  4730 
PH2  4740 
PH2  4750 
PH2  4760 
PH2  4770 
PH 2  4780 
PH2  4790 
PH 2  4800 
PH2  4810 
PH2  4820 
PH2  4830 
PH2  4840 
PH2  4850 
PH2  4860 
PM2  4870 
PH2  4880 
PH2  4890 
PH2  4900 
PH2  4910 
PH2  4920 
PH2  4930 
PH2  4940 
PH 2  4950 
PH2  4960 
PH2  4970 
PH2  4980 
PH2  4990 
PH2  5000 
PH2  5010 


PH2  5020 


12 1 


2010  W$*t  U<K  j**2*'/{X  )**2?/2.0 
Z(l00>"Z(i0Gi*AMX(KJ 
H.S*  AMXUI*  (AIX(KUWS) 

zaon*z(  ion+ws 

£TH=*ETH~WS 

Z(  102 ?*Zt  102  )*AMX{K)«UU) 

Z£103l*Z£103I +AMX { K ) v V  f  K ) 

AMX ( K) =0«0 

AIX(K> “OoO 

P( K ) =0*  0 

U£K}=0„0 

V  ( K ) =0 1 0 

GO  TO  2000 

2008  IFIAIXCKH 2004 1 2000*2000 
2004  $Un=$UM+AlXCKI*AMXf K) 

AIX( K)30«0 

2000  K*K*IMAX 

2001  CONTINUE 
2003  ETH*ETH~SUM 

Z<IQ4J-Z(104J*SUM 

8000  IE( REZ 1 8001 *8001*8002 

8002  IF { REZFCT ) 8004*  8004 v  8003 
8004  REZ=0.. 

GO  TO  8001 

8003  CALL  RE ZONE 

8001  RETURN 
END 


PH2  5030 
PH2  5040 
PH2  5050 
PH2  5060 
PH2  5070 
PH2  5080 
PH2  5090 
PH2  5100 
PH2  5110 
PH2  5120 
PH2  5130 
PH2  5140 
PH2  5150 
PH2  5160 
PH2  5170 
PH2  5180 
PH2  5190 
PH2  5200 
PH2  5210 
PH2  5220 


PH2  5260 
PH2  5270 


o  r>  o  o  o 


H0FTC  ES  L  1ST  »DfcCK,REF 

SUBROUTINE  ES  ES 

ES 
ES 

METALLIC  EQUATION  OF  STATE,  SEE 
GA-3216  REPORT. 

ES 


10  RHOM=AMX(K ) / ( TAU( I )*DY( J ) )  ES 

£TA«RHOW/Z 1115)  ES 

V0W*1. O/ETA  ES 

11  P1*AIX(K )*RH0W4Z( 116)  ES 

12  P2*<Z<  115)*TAU(  I)*0Y(.?>  )**2*AIX(K)  6S 

13  P3-AMXIK)**2*ZI 117)  .  ES 

14  P4*=Z(U8)/(P2/P3+l.O)*AlX(K>*RHOW  ES 

15  P5=Z( 1 19)* (ETA-1.0 )  ES 

16  1FI6TA-1.0 15^,100, 100  ES 

50  IF(V0W-Z(120) 155,55,75  ES 

55  1F(AIX(K)-Z( 122)) 100,100,75  ES 

75  P7»Z(123)*(  VOM-l.O  )  ES 

IF (P 7- 88.0 >4002,4002,4003  ES 

4003  P7*88.0  ES 

4002  CONTINUE  ES 

P6=£XP(P7>  ES 

P9=U0/P8  £S 

P10~Z{ 124)*( (V0W-i.0)**2)  ES 

IF(P10~8S. 0)4000, 4000*4001  ES 

4001  P10“38*0  ES 

4000  CONTINUE  ES 

P11=£XP(P10)  ES 

P12=l*0/Pll  ES 

P(Ki=Pl+(P4*P5*P9)*P12  ES 

CO  TO  H9 

100  P6*Z(126)*((ETA-1.0)**2)  ES 

P(K)*P1+P4*P5+P6  ES 

119  IF(P(K) 1999,999,200  ES 

200  WSGX=.5  ES 

GO  TO  500  ES 

999  P(KI~G,0  ES 

WSGX=«5+Z( 125)  ES 

GO  TO  500  ES 

500  RETURN  ES 

END  ES 

$1 BFTC  ES  LIST, DECK, REF 

SUBROUTINE  ES  ES 

C  **  POLYTROPIC  EQUATION  OF  STATE  **  ES 

PC  K ) =AMX( K )*A IX ( K ) /GAMX/(OY( J ) *TAU{ I ) )  £S 

WSCX=GMAX-1.0  ES 

RETURN  ES 

ENO  ES 


0010 

0760 

0900 


0980 

0990 

1000 

1010 

1C20 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1120 

1220 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 


0010 

0980 

G990 

1000 

1010 

1020 


o  o  o  o  o 


129 


4 1 RFTC  RfcZONt  USrtOfcCK»fi*r 

SUBROUTINE  RIZfJNfc  REZOOOJO 

REZ00980 

CONSERVE  MOMENTUM  A  NO  TOTAL  ENERGY,  INCREASE 
ALE  LINEAR  DIMENSIONS  BY  2.  (THUS  4  CELLS 
IN  THf;  OLU  OR  1U  ARE  COMBINEU  INTO  1  FOR 
THE  NEW  GRID*) 


N!HAX*.;max/2 

REZ00990 

NJHAX*JMAX'2 

REZ01000 

DO  10  J-l »N JMAX 

REZ01010 

K=(  J~l)*NIMAX«-2 

REZ01020 

L*( J~1 ,*2*IMAX*2 

REZ01030 

00  11  1*1. NIMAX 

REZ01040 

M=L  *  1  MAX 

REZ01050 

WSA  =  AMX(L3  4  AMX  (Mi  +AMX  ( i  +1) »AMX(K« 1 ) 

REZ01060 

«S8*AMXIL ) *( U(L l#*2*V(L >**?«  4-AMXIMI*'u( Ml 

REZ01070 

l**2  +  V{  Wl^Zl+A^XCL  +  l  J*CUCL4-l)**2*V<L4l  1**2) 

REZ01080 

2+AMX  ( M4-]  1  //  ( U  ( Mf  1  >  V  <  M* 1 1  **2 1 

REZG1090 

U(K)  =  (U(U  *AMX<L)+0<M)  *  AMXC  M }  4GU.-4  1 )  *A«X< L4- 1  )♦ 

REZOHOO 

iUCM*l)^AMXf  K+l  H/WSA 

REZO1110 

V<  X.  1  V  (  L  1  *AHX  (  L  1  *■  4k  M I *AMX  (  M )  ♦  VC  L*  1 1  *AMX< 

REZ01120 

1VCM*1»«AMX(R4-]  )  j/WSA 

REZ01I30 

AIX|K|=AIX(L)*AMX(  LKAI  A t M > * AKX ( M) ♦ A  I  *  I L*1  1* 

REZ01140 

1  AMX(  L<- 1  {  4-AMX  ( M4-1 1  *  A 1 X  C !'» 1 ) 

REZO 1150 

AMX(K|=W.,A 

REZO 11 60 

WS*U(K)**2+V(K)#*2 

REZD1J70 

E*AIX(Kj4-WS&/2«,0 

REZ01160 

A l X ( K  j  =£/AMX ( K 1 - *  5 *WS 

REZ01190 

IF  (  K-2  l  14j  14.13 

SET  CELL  UUANTirUS  OF  01.0  G«IU  TO  ZERO. 

PEZ012C0 

AHXCU-0.0 

P.EZ01210 

U( L 1 ~Q.O 

REZ01220 

V( L  J  -0.0 

REZO 12 30 

AIXUI-O.O 

REZ01240 

PtU-OoO 

REZO1Z50 

AMX  f  Ml ~0.0 

REZ01260 

UCMI-=0~G 

REZ01Z70 

V  (  M I  s-  0  *  0 

REZ01280 

aixi  m-o.o 

REZ01290 

R(H»~0.0 

REZ01300 

AMXI  L-f-1 1  =0«0 

REZ0131 0 

•J(L*1)=0.0 

REZ0I320 

REZG1330 

A 1 X  ( L+ll-C.O 

REZ01340 

PC  L  *•  1 1  =0.0 

REZ01350 

AMX  f  M4-  i  f  *0.0 

REZ01360 

UCK*1 1=0.0 

REZ01370 

VC  M-*l  1=0.0 

REZ01380 

AIX(M+l>=0»0 

REZ01390 

P(M4-it=0.0 

REZ01400 

14  K«K*1 
L*L  *2 
11  CONT  IN*. 

10  CONTINUE 

C  CALCULATE  Nfc M  OY  AND  Y  { JK/.X  Of  THEM)*, 

18  00  999  J*i,JMAX 
DY  C  J 1  *  OY { J ) *  2  #  0 
999  CONTINUE 

00  99  JsUJMAX 
Y(J)=V(J~1) *DY iJi 
99  CONTINUE 

16  DX(l)=2.0*0Xm 

xm«oxm 

WS*X( 11**2 
TAU(  1 1  -P  10Y***S 

C  CALCULATE  NEW  OX  AND  X,  A HU  TAUlIMAX  Of  THEN) 

17  00  98  l=2-i«AX 

xc  n*x<  i-i  i*ox(  i) 
ox<  n=oxm 

WSA=X{ 11**2 
TAU( 1  =PiDY*(WSA~WSJ 
WS-WSA 
98  CONTINUE 
IMAX=N1MAX 
JNAX=hJMAX 

C  PREPARE  NOW  TO  SHUFFLE  f HE  X  ARRAYS  SUCH 

C  AS  TO  PRESERVE  K= ( J~ 1 ! *  I MAX* I ♦ ! • 

i>u  <,w  JWma 

i/sjMAX  *1  -N 

K=U~U*1MAX*1*IP.AX 

L®€  -J-X  J  *(  I  MAX*  T  MAX  I  ♦  1  ♦  f  RAX 

DO  21  1*1.1  MAX 

1000  AMX  ( !.  1  * AKX  ( K  1 
AIXUl=AIXtK) 

UIU-U(X) 

*/  £  L  1  ®  V  (  X  } 

P(L  J«P( K 1 

IF(«1*~111002» 1002  #1001 

1001  AMX{K1*0.0 
AIX(K>®0*0 
V( K 1 *0  *0 
OIK  1*0*0 

P  f  K 1  =0 .  0 

1002  K*K-I 
L*L-  i 

21  CONT 1NU£ 

20  CONTINUE 

IMAX=NIHAX*2 
JMAX»NJHAX*2 
I  l*N  IHAX*1 


REZ01410 
REZO  1420 
REZ01439 
REZ01440 

REZ0145C 

REZ01460 

REZ01470 

REZ01480 

REZ01490 

REZ01500 

REZ01510 

REZO1520 

REZ01530 

RFZ01540 

REZ01550 
REZ01560 
REZ01570 
REZ01580 
REZO 1590 
P.EZ  01600 
REZ01610 
REZ01A20 
REZ0183G 


P.EZ01640 
REZ01650 
REZ01660 
REZ01670 
REZO 1680 
REZ01690 
P.EZ01700 
PEZ01710 
REZ01720 
REZ01730 
REZO 1740 
REZ01750 
REZ01760 
REZG1770 
REZ01780 
REZ01790 
KEZ01800 
REZ 01810 
REZC1820 
REZC1830 
R.EZ01840 
REZO105O 


1J*J»JMAXU 

C  ADO  OH  ME K  HASS  WITH  DENS f 7 Y*Z U ! 1) 

00  SO  I=1,NIHAX 
K*t JJ- i)*I«AX* !♦! 

00  60  J*JJ,JMAX 

AHX { K ) =Z ' ill } *TAU( !  }*OY(J) 

AO  «C»X+fM'«X 
50  CONTINUE 

JJ=U<  1471/2. ♦. 2) 

JJ=JJ+i 

00  61  1*11, 1MAX 
*=JUUJJ-ll*IKAX 
00  62  J=JJ*J MAX 
AMX(K)=Z< 111 )*TAU< 1 l*OY( J) 

62  K*K+fMAX 
61  CONTINUE 

C  RESET  ACTIVE  GRID  MARKERS. 

JJ*JJ-l 
Z< 147)=JJ 
I1»NIMAX»2 
1 2-. UMAX  <-2 
MS*I+OTWA 
NK*NC*1 

C  EDIT  THE  NEW  GRID. 

WRITE  ( 6*8004  } W5,NK*0X1 l I 
WRITE  <6,8007 ? 1HAX, ( X< It , 1 =0, IMAX) 
mni  TE  i  e>,  800bi  jM/tX  f  i  ft  J  t  tJ~Of  JXAX) 
WRITE  16,8009} 1MAX, < 0X( It , 1  =  1 » I  MAX) 
WRITE  ( 6»301G ) JMAX, (DY(J),JS1 #  JMAA I 
WRITE  <6»8Cil)IMAX* ( TAUt 1 1  * l —1  *  I  MAX) 
KMAX»1.M.AX*JMAX*1 
in A/.fi*  iHAX-*-l 
JMAX A* JMAX ♦! 

XMAXA*KMAX+1 


i'JI  TARGE  7 


R6Z02040 

REZ02050 

REZ0206C 

REZ02070 

REZ0208G 
REZ02090 
REZ02100 
REZ02110 
REZ02120 
REZ02130 
REZ0214C 
REZ02150 
REZ02160 
RE l 02 170 
REZ02180 


RETURN 
80040FORMAT (1H  ////22H 
1X=E12*6////1 

8007  FORMAT! 1H  /10H 

8008  FORMAT  UH  /10H 

8009  FORMAT t  1H  /UH 

8010  FORMAT (IH  /UH 

8011  FORMAT  UH  /13H 
ENO 


PROBLEM  RE ZONED  AT  T  =  IRE  12.6, 6X, 5HCYCIE 14 ,6X, 3HDREZGZ19G 

REZ02200 

XU)  t«0»I2/(5F16*6M  REZ02210 

YiJl  JsOvlZf 15F16.6) I  REZO2220 

DXU!  1  =  1, 12/1  5F  16*6))  REZ02230 

DYCJ5  J=1,12/(5F16.6)1  REZ02240 

AREA iii  1=1,12/(F16.6,4F18*6) ) 


REZ02260 


frlBFTC  EDIT  LIST, DECK, ft€F 

SUBROUTINE  £OIT 


:c 

|C 


SENSE  tut  Hi  ihOIC&f £S  LAST  CYCLE  Of  THIS 
RUN. 

SENSE  LITE  13)  INDICATES  FIRST  CYCLE  OF  THIS 
RUN. 

104  CALL  $UY£T{3,K0G0FX) 

GO  TOU06,108?,K00Gf X 
iOO  CALL  SLITE  131 
GO  TO  126 

108  IFICYCLE-CSTOP? 110, 122, 122 
110  IFiREZ } 990 Ip  112,124 
112  If I AHO0I CYCLE , DUMP T73  1 1 14, 124,  U4 
114  If lA«UD*CVCLc,PRJ«TLm^e»126,i20 
120  IF! A£KMM  CYCLE, PRINTS I 1 140,128,140 
NORMAL  STOP  ON  THIS  CYCLE. 

122  CALL  SLITE  ID 
DUMP  Oti  TAPE  7. 

124  GO  TO  l 

126  CALL  SLITE  1 4) 

128  GO  TO  6000 
130  GO  TO  1000 
132  CALL  SL 1TET ( 4,KGGGFA) 

GO  T0( 134* 1361, KOOQFX 
134  GO  TO  5000 

CHECK  FOR  ENERGY  CHECK  ERROR*  WHERE 
ECK*  PERCENT  ERROR/PEP  CYCLE. 

£CK~( E  TH-E l/ETH  AT  CYCLE  M-IETH-E l/ETH 
AT  CYCLE  M-WPC  ALL  DIVIDED  BY  MPC,  NOTE 
NPO  HO,  OF  CYCLES  BETWEEN  ENERGY  CHECK 
136  IF« ABSC  ECKI-OHIH  > 140, 1 40,9905 
140  CALL  SLIT£T£l*KOOOFXJ 
GO  TO f 142*144) *KOOOFX 
.142  REWIND  7 

CALL  SLITE  (1) 

144  GO  TO  10000 


DUHP  ON  TAPE  7 
1  1F!DUMPT7)30*3,  3 
3  BACKSPACE  7 
REWIND  2 
REWIND  3 
W$*555.0 

WRITE  1  7)WS, CYCLE, N3 
WRITE  (  7) 1ZIL) ,L*1*MZ ) 

6  WRITE  (  7MU(Kl,vnO,ANX<K)  *A1X1K)  ,P<K) ,K*l,XHAXA| 

7  WRITE  C  7IX(C)»IX|K) * TAUI K) »Kxi » IMAX ) 


E0I70010 
EDI T0990 
EDIT  1000 


EDI f 1040 
ED3T1050 
EDIT1060 
E0IT1070 
ED1T1080 

EOITHOO 

EDIT  11 50 

EOIT1160 

EDIT  1170 
EDIT1180 
EDIT  1190 
EDIT  1200 
E0IT121O 
CDIT1220 
EDIT 1230 


EDIT  1240 
EDIT 1250 
ED1T1260 

E01T128O 
EDIT1290 
EDIT  1300 
ED1T1310 
E01T13 20 
EDIT 1330 


ED1T1360 


c 

c 


E0IT142® 

£011143® 


I  r £  {  7i  f  ViK)  ,K=5, 

40 Ain,  if  PPC&LkP  »*0.  IS  h£',4  7lv£,  *«r?l£ 

PARTICLE  fkCO&.V*  'sM  7*f>t  1. 

IFIPfcCSJ 16,  16,  4 
16  00  13  1=1, ft 3 

IRJS1  1150,  148,150 
148  COHfHflJE 

P£A0  (  2HAtltf(l,XL(m,n.lht  ,i*U  «*1,I*2(W1,0=2»<14> 
00  fo  152 
15®  CCMTlfciJE 
*££0  I 
152  COftlltajE 

*>ur£  i  7j(A^uk),x».t'v) ,  Ytihi*ii*iiHi,i4?iM  ,s*=2,mj 
is  a»«Tl*v.j£ 

4  he*im  2 
BEHIND  3 
»<S=666*  C 

itkllt  l  7?  a5,k3«*3 
*RfT£  {6,S120?fcC 
30  GO  TO  126 
C 
€ 

6C0C  «K=i2 

C  TA8S  A>£  T43»G£JilI  ALPHAS, 

7484 1 I =0*02 
TAB* 2) =0,04 
TAS'3*=6.06 
TAB* 4 J =0.08 
TAd* 51=0.10 
TAB*  61  =  0.1 5 
TAB*  71=0.20 
TASI 81=0,25 
TAB*  91 =0.30 
TAB! 101=0.4 
TAB* 111=0.5 
TAB! 121=1.0 
6C1C  03  6012  1=1,18 
6012  PP *13=0.0 
mi^h-K+2 
m  6014  !  =  1,WU 
A»&*  1  j=&,0 

pK*n=0.o 
6014  04t i  1=0.0 

DC  6023  K=2,A«AX 
6017  ?8t 15=9.0 
P*{2?=0.0 
PR*  41=0. 

C  CALCULATE  KJJ3ETIC  ENERGY  IN  CELL  K, 

»58=  *  Of  K  1**2+Y (  K I  **2 1  * .  5 
6019  If ( AK5**K)  19917,6028,6320 


£0111463 


£0111480 

£®  ?T  1500 
£011151® 
£0 IT 1520 
£0313.53® 
£011154® 

£011155® 
£011156® 
£011157® 
£017358® 
£021159® 
£011160® 
£037161® 
£0IH&2® 
EOJT1630 
C0IT164® 
£01 T 165® 
£01 T 166® 
£01 T  267® 
£0111680 
£0iri690 
E0IT1700 

Eonmu 
£0111720 
£011173® 
£01 T 174® 
£01 T 176® 
£011177® 


E01T1790 


6026 

if  tViKi  16026,6626, *32? 

6622  ifS4=taS(J(*m/if«#) 

3©  6024  i=  *  *  NC 

C  SEAJfcCM  EO*  TAN  A!U&t£  TmAT  tfcLOCSTY  /£CTO»S 
C  MAKE. 

IFCTAdll l~tfSA)6324,6®26,6®26 
6024  COMT  Ift©£ 

i*mx*i 

6026  tfS*AMXI«> 

C  SUM  UP  NASS  BETWEEN  AM5LES. 

6027  AMttllfsAftMlt+AlWMK) 

C  SOM  ©P  RAOIAL  MOMENTA  UH  TME  AiU5l.ES. 

m  IJMPK1I  |-»lilf KI*AXX«I 
C  SOW  OiS>  AXIAL  MOMENTA  IN  7  ME  ANCLES. 

a*  1 1 J =©*  f  j  i  -Hr  i  ik  ?  *  m%  i  xi 
C  SOW  UP  TOTAL  INTERNAL  EWE *6* 
m  1 5  i  =9&  i  5  i  *  a  i*  <  k  i*  «mi  x  * 

C  SUM  UP  TOTAL  KINETIC  ENERGY 

P«1 6J*PR<6  f*ifS0*ANXCK  t 
C  SUM  OP  TOTAL  MASS 

PRf*J=PR18l*AMX<XS 

6028  CONTINUE 
PRI3I=P»llS*Pfc«2> 

P?fe€  7l~P£-S5IAPP<61i 

XN*G*PiM7) 

i?fcC9**PR<i  M-MW  51 

PRil©J=PRf2f*PMfeJ 

muMPROi^m 

PlteiZl*-«W4l4P*l«» 

H*SA=l£TlHHS»Rl  111  l/ETW 
IFICrCL£I993i„9931,9932 

9931  MPOI 

9932  P»ll8f=<MSA-ffl»liAi|/fL0AT<lWPCI 
ECK^PRISSI 

£j»&**SA 

C  RESET  CYCLE  CGOMTEa  BETWEEN  EN£RSY  C«€CA. 
MPC=© 

SOM=0.0 
0©  SO©  1*1,13 
S4JM*SUM*<8K1 1 1 
mO  CONTINUE 

;;C  RADET*  TOTAL  POSIT  I  YE  AXIAL  MOWENTOW  IN  ©RI© 
RAOET*SOM 
!  80 1  SUM*©.® 

l  CO  *10  K=2,K«AX 

I  IF! AMX1XI) 810,810,802 

I  *02  IFCUIK9 1010, 810,803 
303  Stl»*Stm*AM*l*>*(Ul*l 
@10  CONTINUE 


Htilism 
££>111*1® 
E01T1S2© 
£©Ef 1®3® 


EffilT 1©4© 
e>m®5® 
££51 T  1*6® 
EffilTS®?® 

£©171®®® 

£©17189© 

£©1719®® 

£©17191© 

EOS  T 192© 

£©17193© 
E©1 7 194© 
£©17195© 
£©17196© 
£©  IT  197® 
£©57198© 
E©1T199© 
£©172©®® 
£©J72©1® 
E©IT2®2® 


£©172® 4® 
£©1T2©5® 

ED1T206G 

£©1T2®7© 

E®1T2®8© 

£©IT2©9® 

£©17210® 

EM  T  211© 
£©17212© 
£©IT213® 
£©57214© 
EOIT215© 
E05T216© 
£©17217© 


£ 

*A®€.*=  Oil!  SUE  ’♦'JUirAu.  *^*0*  if*  *A  ~l. 

*350=  i<ur»r 

OS  12  HU 

V 

OS  *239® 

JJ=£  '  I*** 

OB122I® 

iQll  212  E»B*iW«.>r 

0112221 

£®l'T2?2'r 

X-  42  3  -»>=2»JJ 

£1111223® 

IPS  &WX ;; *  V  jf  *  2  5  •.  ®  2  2  •  *  2  * 

OB  1224® 

04 

Iff  S.JIIS*  »  J&i3*A&3»41* 

£•©11225® 

SE5 

jtiWpstuwi!  it  )) 

£31 1225® 

®23 

*=«S>  IWA# 

£1111227© 

322 

cratuir  n<nu€ 

011220 

£ 

f*Ua>£S=  131 *£  IPOB  1 D  W£  '•  *3E/W L  iLtiLH* 

C 

2M  E  r  S  AIL  1  AA'iO-POJItBE^DO  E.tkB£P*«Ls. 

P;W®Et3=S3* 

£12112253 

£R«29S>=£..£ 

£31123(5© 

X  6©25  2=2»«>ifc 

£iM7r23D® 

5329 

IW«  14-23  5!  =»!*:((  2*13»4W*H(2  2  2 

£©21232’© 

£©11233® 

PPg  W#2B  8=©.® 

021234© 

^ffETc  K&*&21©8Fi#JD4»itKC*Tr,ILnvAw  ntf  JC,^,©lPAi#m»(ftlD  rU.2*i(.v.3«^ 

£321235® 

■WSIIE 

OE1235® 

*s?.:ic  «©,aiia»«p)pu2 t„D=^»i2x 

£321237© 

otf*0  2£  85#®SE9Si93©£8w:£&3tD*«r*  A.Il'O  n©*'"yt^»s£ltP»££* 

£0123.?® 

*fr.2T£  i&#9®4©8ift.2£*i*JlEE* £E»ii2 « 23*04 

0111239® 
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1160 


1166 

1180 

1200 

1204 

1206 

1208 

1210 

121? 

1214 

1224 

1226 

1230 


1240 

C**** 


#*#* 

5000 

5004 


PRC  I )=GRCPRC 1 1 f  ABSC  922746880)  ) 
GO  TO  1180 

REPLACE  6000000000  BY  805306368 
PRC I)=QRCPR< I),  ABSC  805306368)  ) 
CONTINUE 

IFCM0DC J*5) 11210, 1204, 1210 
IF C  0YC  J  )-DY(  J-l) 11206 *1208 *1206 
WRITE  C6,821i)DYCJ),J,CPRC I)«I*1,I1) 
GO  TO  1224 

WRITE  C6,820i)J,iPRei)»I*l*!l) 

GO  TO  1224 

IFCDYC Jl-DYC J-l 1)1212* 1214,1212 
WRITE  C6,8222)0YCJ),CPR( 1 1,1  =  1,11) 

GO  TO  1224 

WRITE  (6«8202)(PRC I  1,1*1,11) 

J*J-1 

IFCJ11230, 1230, 1100 
REPLACE  604000000000  BY-17716740096 
PRC 1)={-AB$C- 177 167400 96) 1 
WRITE  (6,8201)J,(PR(1) ,1*1,11) 

WRITE  C6,8302)C I,I*0,IMAX,5) 

GO  TO  132 

END  OF  PLOT  SUBROUTINE  ***********’ 


805306368 
805306368)  ) 


E0IT2650 
E0IT2660 
E0IT2670 
E0IT2680 
E0IT2690 
EDIT2700 
EDIT2710 
EDIT2720 
EDIT2730 
E01T2740 
EDIT2730 
E0IT2760 
EDIT2770 
E0IT2780 
EDIT 2790 
EDIT2800 
E0IT2810 
EDIT2S20 
E0IT2830 
EDIT2840 
E0IT28S0 
E0IT2860 


END  OF  PLOT  SUBROUTINE  *****************************************EDIT2870 

EDIT2880 

E0IT2890 

SUBROUTINE  L  P  *********«************************************#****EDIT290Q 
WRITE  C6,8116) PR08 *NC , T ,0TNA ,TRA0, OTRAO, NR, N1,N2,N3,N4  EDIT2910 


5012 

5014 

5016 

5019 


00  5050  1*1,11 
CALL  SLITE  C4) 

J*I2+1 

K*I2*IMAX+1+I 
DO  5046  L*l»  12 
J*J-1 
K=K'  IMAX 

IFCAMXiK 1)9917, 5046, 5014 
CALL  SL ITETC  4, K000FX1 
GO  TOC  5016,5019) eKOOOFX 
WRITE  C6, 8135)1, XCI), OXCI) 

WS=  DENSITY  OF  CELLCK)  IN  GRAMS/CM.  CUBED, 
WS=AMX(K )/(TAUCI)*DYCJ) ) 

WSA*  COMPRESSION  =  RHO/RHO  NOT. 

wsA=ws/zeni) 

WSC*  PRESSURE  CONVERTED  TO  MEGABARS. 
WSC=PCK)*l*E+4 

FIRST  COLUMN*  CJ)  THE  ROW  NO. 

SECOND  CliUJMN*  RADIAL  VELOCITY  CM. /SHAKE 
THIRD  COLUMN*  AXIAL  VELOCITY  CM. /SHAKE 
FOURTH  COLUMN*  F/A  *  PRESSURE  IN  MEGABARS 
FIFTH  COLUMN  *  AMX  =  MASS  IN  GRAMS. 

SIXTH  COLUMN  =  RHO  =  DENSITY  IN  GRAMS/CC. 


EDIT2920 
EDIT2930 
EDIT2940 
EDIT2950 
EDIT2960 
EDIT2970 
EDIT2980 
ED IT 2990 
EDIT3000 
EDIT3010 
EDIT3020 

EDIT3030 

EDI T 3040 

EDIT3050 
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C  SEVENTH  COLUMN  =  AIK  »  SPECIFIC  INTERNAL  ENERGY  JERKS/GM. 
C  EIGHT  COLUMN  =  COMPRESSION  =  RHO/RHO  NOT 

C  NINTH  COLUMN  =  Z  VALUE  (CM.)  OF  TOP  OF  CELL) 


50180WRITE  !6,8108)J*U!K),V(K),WSC,AMX!K) , 
IWSA* Y( J ) 


WSfAIXlK)* EDIT 3060 
EDIT3070 


5046 

CONTINUE 

EDIT3080 

5050 

CONTINUE 

EDIT3090 

GO  TO  136 

EDI T3100 

C+*## 

END  OF  L  P  SUBROUTINE 

*  *  *  *  *  *  *  *  #  *  *  *  #  *  P  *  4  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ♦  *  *  *  *  *  *  *  E  D  !  T  3 1 1 0 

C 

EDIT3120 

c 

6DIT3130 

c 

ERROR 

EDIT3140 

9901 

NK=1 10 

EDIT315Q 

GO  TO  9999 

EDIT316C 

c 

ENERGY  CHECK 

EDIT3170 

9905 

NK=136 

E0IT3180 

GO  TO  9999 

EDI T3 190 

C 

NEGATIVE  MASS 

EDIT3200 

9917 

NK=601 5 

EDIT3210 

GO  TO  9999 

EDIT3220 

9920 

NK=904 

E0IT3230 

GO  TO  9999 

ED  IT 3240 

9921 

NK=912 

EDIT3250 

GO  TO  9999 

EDIT3260 

9922 

NK=918 

EDIT3270 

GO  TO  9999 

EDIT3280 

9923 

NK=922 

EDIT3290 

GO  TO  9999 

EDIT3300 

9924 

NK=926 

EDIT3310 

9999 

NR=6 

EDIT3320 

CALL  DUMP 

EDIT3330 

10000 

RETURN 

EDIT3340 

C 

EDIT3350 

C 

FORMATS 

EDI T3360 

8108 

FORMAT!  13* IX, 1P2E14. 6, 3E 15 . 6 , E14.6 * E 15. 6*E 14. 6 ) 

EDIT3370 

81I60FORMAT ( 8H1PR0BLEM6X*  5HC YCLE9X*  4HT I  ME 13X* 2HDT13  X  »4HTRAD1 IX  »5HDT  RADi ED IT 3380 
12XS2HNR6X,2HN14X,2HN24X,2HN34X,2HN4/(F7.1, 1 11 ,2X, 1P4E16. 7*  I 10,2X,4EDIT3390 
216))  EO IT 3400 

8I170F0RMAT { IH0//17X2HAI 16X»2HAK14X» 5HA 1  + AK 1 5X»  2HAM/4H  D0T3X, 1P4E18, 7/3EDIT3410 
1H  X4X»4EI8.7)  EDIT3420 

8 1 1 80  FOR  MAT  ( 1 2X  » 1 3H - - 5X,13H - - 5X»13H - 5EOIT3430 

IX*  1  3H - /7H  T0TALS1P4E18.7)  EDIT3440 

81I90FORMAT I2H0  // 16X,5HRADE8 13X , SHRADER  1 3X,5HRADET12X* 7HMAX  VEL13X »3HT EDIT 3450 
1HE12X* 9HREL  ERROR/ 7X» IP 6E 18*7////)  E0IT3460 

8120  FORMAT! 1H0//21H  TAPE  7  DUMP  ON  CYCLE  15//// )  EDIT3470 

81240F0RMAT ( 3H  K12X,5HAM< K) 11X,9HSUM  AM!  K) 1 1X»4HP( K) 1 3X »4HQ! K )/ ( I 3*4X»  EDIT3480 
HP4E18.7))  EDIT3490 

8131  FORMAT ( 1H  ///11H  DYIJ)  J=1 , I  2// ( 10F 12. 3  ) )  EDIT3500 

8133  FORMAT! 1H  ///11H  Y(J)  J=0, I  2// ! 10F12.3 ) )  E0IT3510 

8 1350FORMAT ( 1H  ///4H  I  = I3,6X,6HX! I )  =F 12. 3,6X*7HDX! I)  =F12.3//3H  J8X,EDIT3520 
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11HX13X* IHV13X#  3HF/A12X*  3HAHX12X*  3HRH0H X»3HAI X12X  »4HC0MP1 1X» 2H  Y/)E0IT353O 


8201  FORMATI 110*2H  I54A2) 

8202  FORMAT (1  OX ,2H  I54A2) 

8211  FORMAT ( F7c i» I 3»2H  I54A2) 

8222  FORMAT «F7.1*3X,2H  154A2) 

8302  FORNAT <112,101 10) 

83070FORMAT l 5H  XI  *1PE12.6» 3X*4HX2  =£12.6,3X,6HXMAX  =£12*6, 6X, 
1*6* 3X»4HY2  *E12.6,3X,6HYMAX  =E12.6) 

8308  FORMAT ( 1H  /) 

9040  FORMAT ( 1H  /  616) 

END 


EDIT 3540 
EDIT3550 
E0IT3560 
EDIT3570 
E0IT3580 
4HY1  *E12£0IT359O 
£?£ T3600 
SDIT3610 
EDIT3620 
E0IT3630 


REFERENCES 


1.  Evans,  M.  W.  and  P.  H.  Harlow,  "The  Fartlcle-in-Cell  Method  for  Hydro¬ 
dynamics  Calculations,"  Los  Alamos  Scientific  Laboratory  Report  LA-2139> 
November  1957* 

2.  Barlow,  F,  E.,  "Two-Dimensional  Hydrodynamic  Calculations,"  Los  Alamos 
Scientific  Laboratory,  Report  LA-2301,  September  1959* 

3.  Johnson,  W.  E.,  "Computer  Development  to  Improve  SHELL  Code,",  General 
Atomic  report  GA-4673,  Contract  AF29(601)-6028,  October  1963* 


4.  Walsh,  J.  M.,  W.  E.  Johnson,  J.  K.  Dienes,  J.  H.  Tillotson,  and  D.  R. 
Yates,  "Summary  Report  on  the  Theory  of  Hypervelocity  Impact,”  General 
Atomic  Report  GA-5H9*  Contract  DA-c4-495-AMC-ll6(x) ,  March  1964, 

5.  Tillotson,  J.  H. ,  "Metallic  Equations  of  State  for  Hypervelocity  Impact," 

General  Atomic  i*eport  GA-3216,  Contract  AF29(6oi)-4759,  19°2. 

6.  Rich,  M-,  "A  Method  for  Eulerian  Fluid  Dynamics,"  Los  Alamos  Scientific 
Laboratoxy  Report  LAMS-2826,  March  1963. 


